I'd like to be able to customise my automated email with font type, size and colour. I understand .Body needs to be .HTMLBody but not sure how to do the rest. Any assistance would be fantastic.
VBA Code:
Sub EmailAll()
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("")
.CC = Range("")
.BCC = Join(Application.Transpose(Range("Aq6:Aq203").Value), ";") & ";"
.Subject = Range("")
.Body = "Dear families," & vbLf & _
" " & vbLf & _
" " & vbLf & _
" " & vbLf & _
"[who]" & vbLf & _
"[role]" & vbLf & _
"Local Sport Association" & vbLf & _
"111 Sydney Street | Melbourne VIC 0000" & vbLf & _
"PO Box 00 | Melbourne VIC 0000"
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub