Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 23:34:09
Bedingte Formatierung einer Zelle, wenn ein Bereich leer ist
25.10.2025 15:53:24
Günstigster Preis anzeigen lassen?
25.10.2025 15:10:14
VBA: Datei Upload mit http: POST
25.10.2025 13:01:47
Formel gibt nur #Wert! aus, wenn ich sie mit VBA berechne
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mail Signatur mit VBA einfügen

Forumthread: E-Mail Signatur mit VBA einfügen

E-Mail Signatur mit VBA einfügen
03.12.2019 16:41:09
Roger
Guten Abend
Habe ein kleines Problem würde gerne beim erstellen durch VBA Excel PDF Anhang zusätzlich die Signatur einfügen. Der Code unten funktioniert ganz kurz holt er die Signatur, jedoch nach einer Sekunde verschwindet die Signatur wieder.
Was mache ich falsch?
Sub PDFundSenden()
ChDir "C:\Users\Admin\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Admin\Desktop\Bestellung.pdf"
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.GetInspector.Display
olOldBody = .HTMLBody
.To = Range("O25")
.CC = Range("O26")
.Subject = Range("O28")
.Body = "Hoi Ruedi" & vbCrLf & vbCrLf & "Die Bestellung findest Du im Anhang." & vbCrLf &  _
vbCrLf & "Freundlichen Grüsse" & vbCrLf & vbCrLf & "Roger Meier" & vbCrLf & "Meier Delivery at Box"
myAttachments.Add "C:\Users\Admin\Desktop\Bestellung.pdf"
'send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mail Signatur mit VBA einfügen
03.12.2019 17:21:29
volti
Hallo Roger,
rette die Signatur in einer Variablen und hänge sie später wieder:
Sub PDFundSenden()
ChDir "C:\Users\Admin\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename
"C:\Users\Admin\Desktop\Bestellung.pdf"
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Dim Signatur As String
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
Signatur = .GetInspector
.GetInspector.Display
olOldBody = .HTMLBody
.To = Range("O25")
.CC = Range("O26")
.Subject = Range("O28")
.Body = "Hoi Ruedi" & vbCrLf & vbCrLf & "Die Bestellung findest Du im Anhang." & vbCrLf & _
vbCrLf & "Freundlichen Grüße" & vbCrLf & vbCrLf & "Roger Meier" & vbCrLf & "Meier Delivery at Box" & vbCrLf & Signatur
myAttachments.Add "C:\Users\Admin\Desktop\Bestellung.pdf"
'send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub

viele Grüße
Karl-Heinz


Anzeige
AW: E-Mail Signatur mit VBA einfügen
03.12.2019 20:39:45
Roger
Guten Abend Karl-Heinz
Leider funktioniert es nicht es gibt bei dem Filename eine blockade... Hast Du noch eine andere Variante wie es gehen könnte? 
Sub PDFundSenden()
ChDir "C:\Users\Admin\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename
"C:\Users\Admin\Desktop\Bestellung.pdf"
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Dim Signatur As String
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
Signatur = .GetInspector
.GetInspector.Display
olOldBody = .HTMLBody
.To = Range("O25")
.CC = Range("O26")
.Subject = Range("O28")
.Body = "Hoi Ruedi" & vbCrLf & vbCrLf & "Die Bestellung findest Du im Anhang." & vbCrLf & _
vbCrLf & "Freundlichen Grüße" & vbCrLf & vbCrLf & "Roger Meier" & vbCrLf & "Meier Delivery at  _
Box" & vbCrLf & Signatur
myAttachments.Add "C:\Users\Admin\Desktop\Bestellung.pdf"
'send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub

Anzeige
AW: E-Mail Signatur mit VBA einfügen
03.12.2019 23:26:34
volti
Hallo Roger,
ich habe mir Deinen Code nochmal vorgenommen und etwas angepasst. Probiere bitte dieses noch mal aus.
Leider habe ich zur Zeit hier kein Outlook und konnte es nicht testen, hoffe aber, dass es jetzt klappt.
Sub PDFundSenden()
 Dim sSignatur As String, sMailText As String, sLW As String
 LW = "C:\Users\Admin\Desktop"
 ChDir sLW
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sLW & "\Bestellung.pdf"
 With CreateObject("Outlook.Application").CreateItem(0)
   .BodyFormat = 3          'HTML-Format
   .GetInspector
   sSignatur = .HtmlBody
   .To = Range("O25")
   .CC = Range("O26")
   .Subject = Range("O28")
   sMailText = "Hoi Ruedi" & vbCrLf & vbCrLf & "Die Bestellung findest Du im Anhang." & vbCrLf & _
   vbCrLf & "Freundlichen Grüße" & vbCrLf & vbCrLf & "Roger Meier" & vbCrLf & "Meier Delivery at Box"
   .HtmlBody = Replace(sMailText, vbCrLf, "<br>") & sSignatur
   .Attachments.Add sLW & "\Bestellung.pdf"
   'send
   .Display
 End With
End Sub

viele Grüße
Karl-Heinz
Anzeige
AW: E-Mail Signatur mit VBA einfügen
03.12.2019 17:34:59
Luschi
Hallo Roger,
bei mir sieht das so aus: 

Sub PDFundSenden()
Dim olOldHtmlBody As String
Const lBodyFormat As Integer = 2    ''Html-Format
'unbedingt setzen, da Lw 'C' nicht Standard sein muß
ChDrive "C"
ChDir "C:\Users\Admin\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Admin\Desktop\Bestellung.pdf"
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.BodyFormat = olBodyFormat
.GetInspector.Display
olOldHtmlBody = .HTMLBody
.To = Range("O25")
.CC = Range("O26")
.Subject = Range("O28")
'bei HTMLBody muß vbCrLF gegen "

" ausgetauscht werden
.HTMLBody = "Hoi Ruedi" & "

" & "Die Bestellung findest Du im Anhang." & _
"

" & "Freundlichen Gr?sse" & " 

" & "Roger Meier" &  "" & _
"Meier Delivery at Box" & "

" & olOldHtmlBody
myAttachments.Add "C:\Users\Admin\Desktop\Bestellung.pdf"
'send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
PS: Leerzeichen vor br> löschen!
Anzeige
AW: E-Mail Signatur mit VBA einfügen
03.12.2019 20:36:04
Roger
Guten Abend Luschi
Vielen Dank für die rasche Antwort. Leider funktioniert es nicht... hast du noch eine Variante?
;

Forumthreads zu verwandten Themen

Tabellenbereich in Email einfügen
Ralf

Hallo Forum,
ich habe das Archiv durchsucht und nicht das richtige gefunden. Ich bin aber überzeugt, dass das Thema schon mal behandelt wurde.
Ich möchte den Tabellenbereich D12:G22 der Tabelle 1 mitsamt der Rahmen und Farben in eine Email einfügen, Betreff und Empfänger mit entsprechen...
05.03.2014 21:13:46
Thread-ID: 1352318
4 Beiträge
VBA Makro Email Signatur
Max

Hallo,
ich versuche ein Makro zu schreiben das Automatisch eine Email an einen Verteiler (Excel Tabelle) sendet, einen Gewissen Betreff und Text enthält sowie eine Datei in Anhang hat. Das funktioniert soweit. Nun würde ich gerne Meine Standard Outlook Signatur benutzen, das funktioniert ab...
10.11.2014 11:21:58
Thread-ID: 1391428
6 Beiträge
Excel Daten in Email mit Makro einfügen
lau

Hallo zusammen,
versuche mit unterem Makro die Range(d1:g11) in die Email einzufügen.
Der Abschnitt wird kopiert, aber nicht in die Email eingefügt. Sub test() Worksheets(1).Range("d1:g11").Select Selection.Copy Dim Nachricht As Object, OutApp As Object Set OutApp = CreateObject("Outloo...
21.09.2015 16:49:41
Thread-ID: 1448500
4 Beiträge
Excel VBA - Outlook Kopie und Signatur
Roebe

Ich möchte bestimmte Abläufe vereinfachen und habe folgende Fragen zum u. g. Code:
1) Signatur einfügen
Beispiel:
Mit freundlichen Grüßen
Vorname Nachname
Telefonnummer 0201-12121121
Von Uhrzeit bis Uhrzeit
2) Wie kann ich eine E-Mail Adresse über die Kopie Funk...
20.12.2015 10:26:52
Thread-ID: 1465239
25 Beiträge
Datei Pfad in Email Body einfügen
Princess88

Hallo,
ich habe eine Frage. Und zwar möchte ich gerne einen Hyperlink in meinen Email
Body einfügen. Am liebsten vorher noch mit Vortext:
"Hallo zusammen,
unter folgendem Pfad liegt eine neue Datei zum bearbeiten:"
>Pfad "Bitte schnellstmöglich bearbeiten"
Das was ich...
24.03.2016 14:26:07
Thread-ID: 1484108
2 Beiträge
Signatur in Email generieren
Sebastian

Hallo zusammen,
ich habe noch ein zweites Problem. Ich wollte gerne in der Email, die ich aus Excel heraus generiere meine Signatur mit einfügen. Dazu habe ich folgenden Codeschnipsel benutzt:
VBA.SendKeys "^{END}", True
' Einfügen einer bestimmten Signatur
strSignatur = "Grußf...
12.06.2016 18:09:07
Thread-ID: 1498487
3 Beiträge
Benutzerdefinierte Signatur in Mail einfügen
MaBlu

Hallo
ich hatte hier im Forum bereits mal Hilfe zum Senden einer mail mit Anhang nun möchte ich die Signatur auswählen können weil ich mehrere habe, und ich krieg das nicht hin kann mir jemand helfen die Datei dazu lade ich hoch.
Das senden der Datei geht jedoch nur mit Standard Signatu...
15.12.2018 09:40:55
Thread-ID: 1663116
6 Beiträge
Anzeige
Signatur einer Email in Entwurf löschen
Werner

Hallo ich bin neu hier.
Ist es möglich mit VBA den Inhalt einer Email zu löschen und einen
neuen Inhalt einfügen.
Ich habe eine Software die mir automatisch eine Email erstellt und in
Entwürfe speichert.
Leider ist dort immer meine erstellte Signatur von Outlook enthalten....
11.04.2019 07:15:50
Thread-ID: 1686499
4 Beiträge
Anzeige
Outlook: mit VBA Signatur erstellen
Frank
Ich möchte mit einem Visual Basic Script automatisch in Outlook verschiedene Signaturen erstellen.
Leider habe ich im Outlook Objektkatalog bisher keinerlei Hinweis gefunden, wie man die Signatur ansprechen könnte.
Wer kann helfen?
Danke
Frank
20.08.2003 15:01:04
Thread-ID: 297578
2 Beiträge
Anzeige
Aus VBA MS Outlook Signatur aktivieren
Jörg Schreiber
Servus!

Moechte aus Excel mittels VBA meine standardmaessig eingestellte Signatur in jeder Mail in MS Outlook aktivieren. Wenn ich aus Excel ueber Outtlook ein Email versende, stehen meine persoenlichen Versendedaten (Name, Adresse, ect.) nicht wie sonst ueblich am Ende der Mail. Mein Quellc...
25.09.2003 14:09:57
Thread-ID: 315172
2 Beiträge
Kopierten Bereich in Emailbody einfügen
Markus

Hallo Leute,
ich verzweifel gerade etwas. Ich habe eine Tabelle gebaut, in der ein Makro jede Zelle eines Bereiches ablaufen soll und wenn das Datum überschritten ist, soll die komplette Zeile und die erste Zeile (Überschriftenzeile) in den Body der zu erstellenden Email kopiert werden.
17.02.2020 13:56:19
Thread-ID: 1740921
8 Beiträge
Datei suchen und in Email einfügen
Bobb857
Hallo zusammen,
ich bin neu hier und kenn mich nicht gut mit der Makro Programmierung aus und bräuchte Unterstützung.
Ich muss im Rahmen einer Bestellung Zeichnungen (PDF) aus dem Zeichnungsordner suchen und diese als Anhang in eine neu geöffnete Email hinzufügen und an den Lieferanten ver...
02.06.2022 08:09:21
Thread-ID: 1885824
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

E-Mail Signatur mit VBA einfügen

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Gehe in Excel auf Entwicklertools > Visual Basic, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke mit der rechten Maustaste auf VBAProject (DeineDatei) und wähle Einfügen > Modul.

  3. Code einfügen: Füge den folgenden Code in das Modul ein:

    Sub PDFundSenden()
   ChDir "C:\Users\Admin\Desktop"
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Admin\Desktop\Bestellung.pdf"

   Dim OutlookApp As Object
   Dim OutlookMailItem As Object
   Dim myAttachments As Object
   Dim Signatur As String

   Set OutlookApp = CreateObject("Outlook.Application")
   Set OutlookMailItem = OutlookApp.CreateItem(0)
   Set myAttachments = OutlookMailItem.Attachments

   With OutlookMailItem
       .GetInspector.Display
       Signatur = .HTMLBody
       .To = Range("O25")
       .CC = Range("O26")
       .Subject = Range("O28")
       .Body = "Hoi Ruedi" & vbCrLf & vbCrLf & "Die Bestellung findest Du im Anhang." & vbCrLf & _
                vbCrLf & "Freundlichen Grüße" & vbCrLf & vbCrLf & "Roger Meier" & vbCrLf & "Meier Delivery at Box" & vbCrLf & Signatur
       myAttachments.Add "C:\Users\Admin\Desktop\Bestellung.pdf"
       .Display
   End With

   Set OutlookApp = Nothing
   Set OutlookMailItem = Nothing
End Sub

  4. Anpassen des Codes: Stelle sicher, dass die Zellreferenzen (z.B. Range("O25")) in deinem Excel-Dokument korrekt sind.

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

  • Fehler: Signatur verschwindet: Wenn die Signatur in der E-Mail nicht bleibt, stelle sicher, dass du sie in einer Variablen speicherst, bevor du die E-Mail sendest.

    Beispiel:

    Signatur = .HTMLBody

  • Fehler: Blockade bei Filename: Wenn du eine Blockade beim Speichern des PDFs bekommst, überprüfe, ob der Pfad korrekt ist und du die notwendigen Berechtigungen hast.

Alternative Methoden

  • HTML-Signatur verwenden: Du kannst auch eine HTML-Signatur in Outlook einfügen. Dafür musst du den Body-Text in HTML umwandeln.

    Beispiel:

    .HTMLBody = "Dein HTML Text hier" & Signatur

  • Outlook-Objektbibliothek aktivieren: Stelle sicher, dass die Outlook-Objektbibliothek in den Verweisen aktiviert ist, um die Funktionen leichter nutzen zu können.

Praktische Beispiele

Hier ist ein weiteres Beispiel, das die Signatur direkt einfügt:

With OutlookMailItem
    .BodyFormat = 2  ' HTML-Format
    .HTMLBody = "Hallo," & "<br>" & "Hier ist die Bestellung." & "<br>" & Signatur
    ' Weitere Einstellungen
End With

Dieses Beispiel zeigt, wie du die Signatur als HTML einfügst, was besonders nützlich ist, wenn du eine formatierte Signatur verwenden möchtest.

Tipps für Profis

  • Verwende GetInspector: Achte darauf, die Methode .GetInspector korrekt zu verwenden, um sicherzustellen, dass du Zugriff auf die HTML-Daten der E-Mail erhältst.
  • Fehlerbehandlung einbauen: Implementiere Fehlerbehandlungsmechanismen, um unerwartete Probleme beim Versenden der E-Mail zu erkennen und zu beheben.

FAQ: Häufige Fragen

1. Wie kann ich eine HTML-Signatur in Outlook einfügen?
Du kannst eine HTML-Signatur einfügen, indem du den Body der E-Mail mit HTML formatierst und den Text entsprechend anpasst.

2. Was mache ich, wenn mein Makro nicht funktioniert?
Überprüfe die Zellreferenzen und stelle sicher, dass du die richtigen Berechtigungen zum Speichern des PDFs hast. Achte auch darauf, dass Outlook korrekt installiert ist und dein Code keine Syntaxfehler enthält.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige