Beste Forumleden,
Met onderstaande code wordt de factuur vanuit Excel als PDF gemaild. (gehaald uit voorbeeld van Edmoor)
Probleem is dat ik steeds het wachtwoord voor outlook moet ingeven.
Is er een mogelijkheid om met VBA dit wachtwoord in te geven of te omzeilen?
(ps; wachtwoord wil ik niet in wachtwoordenlijst zetten)
Met onderstaande code wordt de factuur vanuit Excel als PDF gemaild. (gehaald uit voorbeeld van Edmoor)
Probleem is dat ik steeds het wachtwoord voor outlook moet ingeven.
Is er een mogelijkheid om met VBA dit wachtwoord in te geven of te omzeilen?
(ps; wachtwoord wil ik niet in wachtwoordenlijst zetten)
Code:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With Sheets("Factuur")
FileNamePDF = Environ("temp") & "\" & "fact.nr " & .Range("F20") & " " & .Range("B20") & ".pdf"
.Range("B8:F80").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FileNamePDF
StrTo = .Range("F23")
StrSubject = "FACTUURNR:" & " " & .Range("F20") & " " & .Range("B20")
StrBody = "Beste Klant," & vbCrLf & vbCrLf & _
"Bijgevoegd de factuur voor uitgevoerde werkzaamheden." & vbCrLf & vbCrLf & _
"Met dank voor uw opdracht en vriendelijke groet," & vbCrLf & vbCrLf & _
"Bjorn "
End With
With OutMail
.To = StrTo
.Subject = StrSubject
.Body = StrBody
.Attachments.Add FileNamePDF
.Display 'niet direct verzenden
'.Send 'direct verzenden
End With
Set OutMail = Nothing
Set OutApp = Nothing