bestand mailen uit werkblad, maar verkeerde bestandsnaam

[jvandervliet]

Beste mensen,

Met onderstaande code kan ik mijn excel werkblad mailen. Alleen wordt niet de naam meegegeven die in de opgegeven cel staat. Maar de naam van het excel bestand. Hoe kan ik dat veranderen. Alvast hartelijk dank!

Hier de code:

Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = ActiveWorkbook.Path & Sheets("Instellingen").Range("h2") & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ThisWorkbook.Worksheets("Instellingen").Range("H21")
        .CC = ""
        .BCC = ""
        .Subject = ThisWorkbook.Worksheets("Instellingen").Range("H10")
        .Body = ThisWorkbook.Worksheets("Instellingen").Range("H7")
        .Attachments.Add Bestand
        .Send
    End With
    Kill Bestand

 

[edmoor]

En wat staat er precies in het blad Instellingen in cel H2?

 

[jvandervliet]

Dat was een klein foutje, daar stond niks. dat is hersteld. In ieder geval hartelijk dank.

 

[VenA]

Haal je Activeworkbook en Thisworkbook niet een beetje door elkaar?

Sub VenA()
  With Sheets("Instellingen")
    ar = .Range("H1:H21")
    If ar(2, 1) <> "" Then
      c00 = Replace(ThisWorkbook.Path & "\" & ar(2, 1), "\\", "\") & ".pdf"
      .ExportAsFixedFormat 0, c00
      With CreateObject("Outlook.Application").CreateItem(0)
        .to = ar(21, 1)
        .Subject = ar(10, 1)
        .body = ar(7, 1)
        .Attachments.Add c00
        .display '.send
      End With
    End If
  End With
End Sub

 

[jvandervliet]

VenA:

Wat is het voordeel van jouw code?

 

[VenA]

Is iets logischer opgebouwd. Maar had je zelf waarschijnlijk ook al gezien.

 

[jvandervliet]

Helaas werkt dat niet. Als ik bij verzonden Items of postvak uit kijk, dan staat de verstuurde mail niet tussen. Of moet Outlook openstaan?

 

[VenA]

Werkt hier prima in het niet geplaatste document.

 

[jvandervliet]

Sorry, vergeten. Hierbij het bestand.

 

[edmoor]

Heb je het zelf al getest met Outlook open?
Dat kan je simpel zelf uiteraard.

 

[jvandervliet]

Uiteraard!

 

[edmoor]

Dit kan natuurlijk nooit:

Sub PDFEmail()
Sub VenA()

En wijzig op 2 posities de 2, 1 in 3, 1