pdf verzenden

Status
Niet open voor verdere reacties.

MichelO

Nieuwe gebruiker
Lid geworden
11 mei 2017
Berichten
3
Goede middag,

ik heb de volgende VBA voor excel gemaakt

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = ""
.CC = ""
.BCC = ""
.Subject = ThisWorkbook.Sheets("Debiteuren").Range("Q23").Value
.Body = ""
.Attachments.Add "C:\Werk\Urenlijsten" & Range("Q20").Value & ".pdf"
.Attachments.Add "C:\Werk\Facturen" & Range("Q23").Value & ".pdf"
.display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

Sheets("Debiteuren").Range("Q20").Value = "Selecteer Urenlijst"
Sheets("Debiteuren").Range("Q23").Value = "Selecteer Factuur"

dit werkte op een windows pc met gebruik van outlook

ik wil dit nu gebruiken op mijn mac middels mac mail krijg het alleen met geen mogelijkheid voor elkaar.
kan iemand mij helpen hiermee?
 
ik heb al op die site gekeken en het een en ander geprobeerd maar het werkte niet.
natuurlijk ga ik het eerst googelen het programma dat ik in gemaakt heb is dankzij de hulp van google
 
Haal dan eerst dat On Error Resume Next er eens uit.
Dan zie je in ieder geval of je een foutmelding krijgt.
Laat die hier dan weten.

Kijk ook eens hier:
https://www.rondebruin.nl/mac/mail.htm
 
Laatst bewerkt:
ik ga er het weekend weer mee aan de slag alvast bedankt
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan