2k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo zusammen,

ich versende über ein Makro direkt aus Excel eine PDF.
Die E-Mail-Adresse, den Betreff, den Text der E-Mail füge ich direkt über das Makro ein und
lasse mir die E-Mail vor dem Versenden nochmal anzeigen, um ggf. zu korrigieren/zu ergänzen.

Das klappt alles soweit gut.

Aber:

Was in der E-Mail fehlt, ist die Signatur!
Wie bekomme ich die denn da noch mittels Code hinein?
Oder gibt es keinen Weg, die bei Outlook hinterlegte Signatur einzufügen?

Liebe Grüße

Peter

4 Antworten

0 Punkte
Beantwortet von beverly_ Experte (3.3k Punkte)

Hi Peter,

da ich deinen Code nicht kenne kann ich nur darauf hinweise, dass die Outlook-Signatur mittels .GetInspector hinzugefügt werden kann.

Bis später, Karin

0 Punkte
Beantwortet von
Hallo Karin,

sorry, ich dachte, dass mein Code hier nicht so wichtig sei.
Ich habe mir das so zusammengebastelt:

' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Dim objEmail As Object
    Dim myAttachments As Object
    
'Datei für PDF definieren
    Dim DateiNameAngebot As String
   ' DateiNameAngebot = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.name, InStrRev(ActiveWorkbook.name, ".") - 1) & " - ANGEBOT.pdf"
    DateiNameAngebot = ActiveWorkbook.Path & "\" & Worksheets("Angebot").Cells(4, 13) & ".pdf"

'Angebotsblatt in PDF exportieren
Worksheets("Angebot").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        DateiNameAngebot, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

'Variabeln setzen (füllen)
    Set objOutlook = CreateObject("Outlook.Application")
    Set objEmail = objOutlook.CreateItem(0)
    Set myAttachments = objEmail.Attachments
    
    'SET Attachment

    
    
    ' CREATE EMAIL OBJECT.

    With objEmail
        .To = Worksheets("Eingabe").Cells(9, 21)
        .Subject = Worksheets("Angebot").Cells(3, 2)
        .Body = Worksheets("Angebot").Cells(9, 2) & Worksheets("Angebot").Cells(14, 29)
        .Display
        .Attachments.Add DateiNameAngebot
'        .Send
    End With
    
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing:   Set myAttachments = Nothing

Komme ich da mittels .GetInspector weiter?

Liebe Grüße

Peter
+1 Punkt
Beantwortet von beverly_ Experte (3.3k Punkte)

Hi Peter,

schreibe es in die Zeile vor .Display

Bis später, Karin

0 Punkte
Beantwortet von peters Mitglied (460 Punkte)
Danke,

teste ich aus

LG
Peter
...