Hallo allemaal,
Met dank aan Ron de Bruin, mail ik vanuit Excel via Outlook.
Ik open een .oft om te verzenden. Je vindt e.e.a. in de code hieronder.
Op mijn PC heb ik Office 2013 en op mijn laptop 2016.
Als ik mail vanuit Office 2013 wordt mijn mail correct in HTML verzonden.
Als ik mail vanuit Office 2016 wordt mijn mail niet als HTML verzonden, maar als tekst.
Als ik in Office 2016 i.p.v. send eerst DISPLAY doe, kan komt de mail correct als HTML op mijn scherm.
Door direct SEND te laten doen, lukt het niet.
In zowel Office 2013 als Office 2016 gebruik ik onderstaande code. Wie herkent dit probleem?
Alvast bedankt!
Groet
Willem
Met dank aan Ron de Bruin, mail ik vanuit Excel via Outlook.
Ik open een .oft om te verzenden. Je vindt e.e.a. in de code hieronder.
Op mijn PC heb ik Office 2013 en op mijn laptop 2016.
Als ik mail vanuit Office 2013 wordt mijn mail correct in HTML verzonden.
Als ik mail vanuit Office 2016 wordt mijn mail niet als HTML verzonden, maar als tekst.
Als ik in Office 2016 i.p.v. send eerst DISPLAY doe, kan komt de mail correct als HTML op mijn scherm.
Door direct SEND te laten doen, lukt het niet.
In zowel Office 2013 als Office 2016 gebruik ik onderstaande code. Wie herkent dit probleem?
Code:
Sub Mailing()
For i = 1 To 4
Email = Cells(ActiveCell.Row, 2)
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Set OutMail = OutApp.CreateItemFromTemplate _
("C:\Users\Gebruiker\AppData\Roaming\Microsoft\Templates\Herkent u dit.oft")
With OutMail
.SendUsingAccount = Session.Accounts.Item(1)
.To = Email
.Send
' .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveCell.Offset(1, 0).Activate
Next i
End Sub
Alvast bedankt!
Groet
Willem