Geachte deskundigen,
Ik heb een Excel sheet gemaakt van waaruit ik offertes maak, deze worden opgeslagen in een tijdelijke map en via Macmail als attachement verstuurd naar mijn klant. Tot zover werkt dit perfect, alleen zou ik ook graag mijn verkoopvoorwaarden als standaard attachement willen toevoegen. Dit wil maar niet lukken. Onderstaand stukje VBA is waar het allemaal mee moet gebeuren, wanneer ik alleen de verkoopvoorwaarden toevoeg gaat dat gewoon, evenals de offerte maar beiden wil niet.
Alle documenten worden opgeslagen in de cloud zodat ik vanaf iedere locatie en vanaf verschillende Mac computers kan werken.
Wie heeft hier de oplossing voor mij?
Sub Mailfrommac()
MailFromMacWithMail bodycontent:=Range("A1") & "," & vbNewLine & vbNewLine & "Bijgevoegd de offerte zoals besproken en onze algemene verkoopvoorwaarden." & vbNewLine & vbNewLine & _
"Best regards" & vbNewLine & "Sander Scheepstra" & vbNewLine & "Brooklyn-Audio" & vbNewLine & _
"Nijverheidsweg 5" & vbNewLine & "3628GD Kockengen" & vbNewLine & "Phone: 0031-346242877" & vbNewLine & _
"Mail: info@brooklyn-audio.nl" & vbNewLine & "URL: www.brooklyn-audio.com", _
mailsubject:="Offerte", _
toaddress:=Sheets("Offerte2").Range("F34"), _
ccaddress:="", _
bccaddress:="", _
attachment:="Macintosh HD:Users:sanderscheepstra:Library:Mobile Documents:com~apple~CloudDocs:Admin 18:Offertes:Temp: Offerte.pdf" _
& ",Macintosh HD:Users:sanderscheepstra:Library:Mobile Documents:com~apple~CloudDocs:Admin 18:Verkoopvoorwaarden:Verkoopvoorwaarden.pdf", _
displaymail:=True
Application.Wait Now + TimeSerial(0, 0, 1)
KillFileOnMac "Macintosh HD:Users:sanderscheepstra:Library:Mobile Documents:com~apple~CloudDocs:Admin 18:Offertes:Temp: Offerte.pdf"
End Sub
Ik heb een Excel sheet gemaakt van waaruit ik offertes maak, deze worden opgeslagen in een tijdelijke map en via Macmail als attachement verstuurd naar mijn klant. Tot zover werkt dit perfect, alleen zou ik ook graag mijn verkoopvoorwaarden als standaard attachement willen toevoegen. Dit wil maar niet lukken. Onderstaand stukje VBA is waar het allemaal mee moet gebeuren, wanneer ik alleen de verkoopvoorwaarden toevoeg gaat dat gewoon, evenals de offerte maar beiden wil niet.
Alle documenten worden opgeslagen in de cloud zodat ik vanaf iedere locatie en vanaf verschillende Mac computers kan werken.
Wie heeft hier de oplossing voor mij?
Sub Mailfrommac()
MailFromMacWithMail bodycontent:=Range("A1") & "," & vbNewLine & vbNewLine & "Bijgevoegd de offerte zoals besproken en onze algemene verkoopvoorwaarden." & vbNewLine & vbNewLine & _
"Best regards" & vbNewLine & "Sander Scheepstra" & vbNewLine & "Brooklyn-Audio" & vbNewLine & _
"Nijverheidsweg 5" & vbNewLine & "3628GD Kockengen" & vbNewLine & "Phone: 0031-346242877" & vbNewLine & _
"Mail: info@brooklyn-audio.nl" & vbNewLine & "URL: www.brooklyn-audio.com", _
mailsubject:="Offerte", _
toaddress:=Sheets("Offerte2").Range("F34"), _
ccaddress:="", _
bccaddress:="", _
attachment:="Macintosh HD:Users:sanderscheepstra:Library:Mobile Documents:com~apple~CloudDocs:Admin 18:Offertes:Temp: Offerte.pdf" _
& ",Macintosh HD:Users:sanderscheepstra:Library:Mobile Documents:com~apple~CloudDocs:Admin 18:Verkoopvoorwaarden:Verkoopvoorwaarden.pdf", _
displaymail:=True
Application.Wait Now + TimeSerial(0, 0, 1)
KillFileOnMac "Macintosh HD:Users:sanderscheepstra:Library:Mobile Documents:com~apple~CloudDocs:Admin 18:Offertes:Temp: Offerte.pdf"
End Sub
Laatst bewerkt: