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 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?