bestand als attachment (pdf-bestand) in mail meesturen

Status
Niet open voor verdere reacties.
T

Tamara27

Gebruiker
Lid geworden
1 mrt 2010
Berichten
224
Beste,

Ik heb een excelbestand met gegevens. Ik zou met een druk op commandbutton graag het werkblad exporteren naar pdf en ineens doormailen naar verschillende e-mailadressen.

Ik ben al zover dat ik het excelformulier verzonden krijg:

Code: 
 ThisWorkbook.Sheets(1).Copy
    With ActiveWorkbook
    .SendMail Recipients:=strRecip(), Subject:=strSubject
    .Close SaveChanges:=False
    End With

Maar het lukt me niet om er een pdf-versie van te maken.
Misschien al even vermelden dat formulier op server staat en door meerdere personen gebruikt wordt.

Alvast bedankt!
 
De Sendmail methode kan alleen het actieve werkboek mailen.
Voor het opslaan als PDF en mailen via Outlook vanuit Excel kan je hier alles vinden:
https://www.rondebruin.nl/win/section1.htm

Een voorbeeld:
Code: 
Sub Send_Mail()
    Dim PDFnaam As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    
    PDFnaam = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(UBound(Split(ThisWorkbook.Name, ".")) - 1) & ".pdf"
    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=PDFnaam
        
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Hoi!" & vbNewLine & vbNewLine & _
              "Dit is regel 1" & vbNewLine & _
              "Dit is regel 2" & vbNewLine & _
              "Dit is regel 3" & vbNewLine & _
              "Dit is regel 4"

    With OutMail
        .To = "edmoor@helpmij.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Het onderwerp"
        .Body = strbody
        .Attachments.Add PDFnaam
        .Display   [COLOR="#008000"]'Of gebruik .Send[/COLOR]
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan