Allen
Onderstaande code werkt voor het maken van een e-mail.
Alleen zou ik voor "Zondag 19 januari " een * met Tab willen invoegen, zodat dit wat inspringt.
Welke code gebruik ik voor * + Tab
Onderstaande code werkt voor het maken van een e-mail.
Alleen zou ik voor "Zondag 19 januari " een * met Tab willen invoegen, zodat dit wat inspringt.
Welke code gebruik ik voor * + Tab
Code:
Sub testfile()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<font size=""3"" face=""Calibri"">" & _
"Dag x<br><br>" & _
"test " & _
"<br><br><font color = #FF0000>" & _
"Zondag 19 januari " & _
"</font>" & _
"<br><br>test1 " & _
"<br><br>test2" & _
"<br><br>Mvg " & _
"<br><br>x"
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "x"
.HTMLBody = strbody
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub