Change Font Size In Access / Outlook Automation (1 Viewer)

[abbaddon223]

Okay,

This is something I appreciate I should know (blushes with shame).

I'm using the below to create an outlook event which is being populated (to, subject and body) from an access form.

Private Sub Command14_Click()
Dim Olk As Outlook.Application
Set Olk = CreateObject("Outlook.Application")
Dim OlkMsg As Outlook.Mailitem
Set OlkMsg = Olk.createitem(olmailitem)
With OlkMsg
Dim Olkrecipt As Outlook.Recipient
Set OlkRecip = .Recipients.Add(Me![EmailAddress])
OlkRecip.Type = OlTo
.Subject = Forms!Frm_Email_Subject_body!Subject
.Body = Forms!Frm_Email_Out!CustomerForename & "," & Forms!Frm_Email_Subject_body!Body
.Display
End With
Set Olk = Nothing
Set OlkMsg = Nothing
Set OlkRecip = Nothing
End Sub

When outlook opens, it's size and font are small and horrid. How do I change this to say, Arial 10, without using HTML as this then means that the body text get's moved to1 line rather then paragraphed (as written).

Thanks for any assistance!!!

 

[Addyman]

I'm not sure you can, I've always used HTML format for this type of thing.

Can't you use the <br> tag to line break your Body text if you don't want it all on one line?