Oktober 24, 2020, 17:31:48

Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!


Email aus Excel mit Signatur laden

Begonnen von itaflo, März 12, 2020, 10:42:08

⏪ vorheriges - nächstes ⏩

itaflo

Hallo,
ich würde gerne zu dieser Mail immer die Signatur mit senden
das sollte möglichst über VBA geladen werden.

Sub PDFundSenden()
ChDrive "Q:\"                                                                                                                   'Laufwerk
ChDir "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich"                                  'Pfad
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
"Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf", OpenAfterPublish:=False                                                     'als PDF speichern"



Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
   .to = Range("O1")                                                                                                               'An
   .CC = Range("O2")                                                                                                               'CC
   .Subject = Range("O3")                                                                                                          'Betreff
   .Body = Range("O4")                                                                                                             'Text
   .Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf"
   .Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Negative_aktuell.pdf"
   .Display        'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With

End Sub


DF6GL

Hallo,

die Outlook-Signaturen (txt, rtf, htm) befinden sich (normalerweise) im Verzeichnis
C:\Users\Username\AppData\Roaming\Microsoft\Signatures

Von dort kann die gewünschte Signatur-Datei eingelesen und an den Mail-Body angehängt werden.

itaflo

funktioniert leider nicht so wie ich es mir Vorgestellt habe...

bekomme ein Sytaxfehler

habe bei .Body nach = Range ("04") noch ein & Clipboard.SetDataObject "C:\Users\mancflor\AppData\Roaming\Microsoft\Signatures\Standart.htm"
Sub PDFundSenden()
ChDrive "Q:\"                                                                                                                   'Laufwerk
ChDir "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich"                                  'Pfad
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
"Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf", OpenAfterPublish:=False                                                     'als PDF speichern"



Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
   .to = Range("O1")                                                                                                               'An
   .CC = Range("O2")                                                                                                               'CC
   .Subject = Range("O3")                                                                                                          'Betreff
   .Body = Range("O4") & Clipboard.SetDataObject "C:\Users\mancflor\AppData\Roaming\Microsoft\Signatures\Standart.htm"
   .Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Lagerleitstand_aktuell.pdf"
   .Attachments.Add "Q:\Daten\PTLP_Datenmanagement\01 Auswertungen\03 LL und Cogi\01 Lagerleitstand täglich\Negative_aktuell.pdf"
   .Display        'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With

End Sub

DF6GL

Hallo,

was willst Du mit SetDataObject erreichen?


Lese die Signatur mit z. B. Lineinput in einen String und hänge den an den Body an.

Bei .Body  hast Du eine Text-Mail, mit muss auch die Signatur aus einer txt-Datei gelesen werden.

Bei .HtmlBody ist eine .htm-Datei zu verwenden.