Ik heb in een access programma een knop op het formulier waar ik een rapport mee opsla als een pdf in een map en hij opent daarna het mailprogramma van office outlook en plaats in de mail als bijlage dezelfde Pdf en vult automatisch het mailadres in en ik hoef dan alleen nog op verzenden te klikken om deze te versturen. Mijn vraag is als ik dit wil doen niet met Office outlook maar met bijvoorbeeld ziggo mail hoe moet ik dit verwijzen met de VBA code
Code:
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(0) '(olMailItem)
mess_body = "Hoi Klaas ," & Chr(13) & _
"Bijgesloten vindt u als bijlage de pdf van" & Chr(13) & Me.naam & Chr(13) & Me.datum & Chr(13) & Chr(13) & _
"Met vriendelijke groet,Piet "
With MailOutLook
'.From = "test@mail.nl"
.BodyFormat = 3 ' olFormatRichText
.To = "ikke@mail.nl"
.Subject = "Bijgaand de pdf."
.HTMLBody = mess_body
'.SentOnBehalfOfName = Me.txtFrom
'.SenderEmailAddress = Me.txtFrom
.Attachments.Add "C:\Diversen\" & stDocName & ".pdf"
.DeleteAfterSubmit = False
''.DeleteAfterSubmit = True 'Verwijderen na verzenden
''.Send 'Gelijk verzenden
.Display 'Op scherm tonen
End With
End Sub