Beste,
Ik heb een code in VBA waarmee ik een email genereer vanuit Excel. Vervolgens moet ik handmatig een rapport toevoegen in de mail.
Bij dat mail moet ik steeds handmatig een rapport (PDF) als bijlage toevoegen.
Mijn Excel bestand staat in de hoofddirectory C:\hoofdmap\Excel.xlsm
Het rapport staat in map C:\hoofdmap\4 Opgeleverd aan OG\Concept\xxxxxx_Concept.PDF. Het bestandsnaam bevat de tekst "concept".PDF
Wie kan mij helpen om het rapport automatisch toegevoegd te krijgen via VBA?
Alvast bedankt.
MVg
Roy
Ik heb een code in VBA waarmee ik een email genereer vanuit Excel. Vervolgens moet ik handmatig een rapport toevoegen in de mail.
Code:
Public Sub MailAccept()
Set shtGegevens = Worksheets("Gegevens")
With shtGegevens
If Not .Range("C4").Value = vbNullString Then
OpdrachtContact = .Range("C4").Value
Else
MsgBox "De contactpersoon is niet ingevuld!" & vbCrLf & "Vul dit in en probeer opnieuw!", vbOKOnly, "Email"
Exit Sub
End If
If Not .Range("C6").Value = vbNullString Then
sTo = .Range("C6").Value
Else
MsgBox "Het emailadres van de contactpersoon is niet ingevuld!" & vbCrLf & "Vul dit in en probeer opnieuw!", vbOKOnly, "Email"
Exit Sub
End If
End With
sSubject = Opdrachtnummer & " " & "Oplevering meetcertificaat " & McName & " " & OpdrachtAdres & " te " & OpdrachtStad
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = sTo
olMail.Subject = sSubject
SigString = Environ("appdata") & _
"\Microsoft\Signatures\RPS Default Signature.htm"
On Error Resume Next
strbody = "<p style='font-family:arial;font-size:13'>" & "Geachte " & OpdrachtContact & ",<br>" & _
"<br> Bijgaand treft u het definitieve meetcertificaat " & McName & " " & OpdrachtAdres & " te " & OpdrachtStad & " aan met bijbehorende tekeningen.<br>" & _
"<br> Mocht u naar aanleiding hiervan nog vragen en/of opmerkingen hebben, dan kunt u contact opnemen met " & ProjectLeider & " via 012-345678.<br>" & _
"<br> Met vriendelijke groet,<br>"
olMail.HTMLBody = strbody & "<br>" & Signature
olMail.Display
If Not olApp Is Nothing Then Set olApp = Nothing
End Sub
Bij dat mail moet ik steeds handmatig een rapport (PDF) als bijlage toevoegen.
Mijn Excel bestand staat in de hoofddirectory C:\hoofdmap\Excel.xlsm
Het rapport staat in map C:\hoofdmap\4 Opgeleverd aan OG\Concept\xxxxxx_Concept.PDF. Het bestandsnaam bevat de tekst "concept".PDF
Wie kan mij helpen om het rapport automatisch toegevoegd te krijgen via VBA?
Alvast bedankt.
MVg
Roy