Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Standardsignatur in E-Mail einfügen

Standardsignatur in E-Mail einfügen
31.03.2017 07:45:57
Sandra
Hallo,
so nun habe ich noch ein, hoffe ich, kleines Problemchen :-(
ich habe folgenden Code:

Private Sub CommandButton4_Click()
Worksheets("Stauungsbetrieb").Range("A6:G69").CopyPicture xlScreen, xlBitmap
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = Worksheets("E-Mails").Range("B21").Value
.Subject = Worksheets("E-Mails").Range("B22").Value
.Body = Worksheets("E-Mails").Range("B23").Value
.display
SendKeys "^{END}~^v", True
End With
On Error GoTo 0
Set oApp = Nothing
End Sub

Das klappt alles reibungslos, das einzige was nun noch nicht geht ist, dass die Standardsignatur nicht mehr in der E-Mail zu finden ist. Ich habe es schon mit .GetInspector ausprobiert, aber es passiert leider nichts :-(
Liebe Grüße
Zoamy
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Standardsignatur in E-Mail einfügen
31.03.2017 12:14:08
Rudi
Hallo,
aber es passiert leider nichts :-(
Sicher?
Bei wird die Signatur nie angezeigt. Die wird erst beim Versenden eingefügt.
Schick dir doch mal selbst ne Mail.
Gruß
Rudi
AW: Standardsignatur in E-Mail einfügen
31.03.2017 13:15:32
Sandra
Leider immer noch nichts. Wie setze ich .GetInspector korrekt ein. Vielleicht macht ich da schon etwas falsch.
:-(
Anzeige
AW: Standardsignatur in E-Mail einfügen
31.03.2017 13:19:34
mumpel
Hallo!
Du musst die Signatur zwischenspeichern und hinten wieder anhängen.
Option Explicit

Public Sub EmailMitSignatur()

  Dim olApp       As Object
  Dim olMail      As Object
  Dim strOldBody  As String

Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.Createitem(0)

    With olMail
         .GetInspector.Display
         strOldBody = .htmlBody
         .To = "beispiel@beispiel.org"
         .Subject = "Test"
         .htmlBody = "Hallo!<br><br>" & _
                     "Nur ein Test<br><br>" & _
                     "Grüßle, Max<br><br>" & _
                     strOldBody
     End With

End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß, René
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Standardsignatur in E-Mail einfügen


Schritt-für-Schritt-Anleitung

Um eine Standardsignatur in eine E-Mail über VBA einzufügen, kannst du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor in Excel (Alt + F11).

  2. Erstelle ein neues Modul und füge den folgenden Code ein:

    Private Sub CommandButton4_Click()
       Dim olApp As Object
       Dim olMail As Object
       Dim strOldBody As String
    
       Set olApp = CreateObject("Outlook.Application")
       Set olMail = olApp.CreateItem(0)
    
       With olMail
           .GetInspector.Display
           strOldBody = .htmlBody
           .To = Worksheets("E-Mails").Range("B21").Value
           .Subject = Worksheets("E-Mails").Range("B22").Value
           .htmlBody = Worksheets("E-Mails").Range("B23").Value & strOldBody
           .Display
       End With
    
       Set olMail = Nothing
       Set olApp = Nothing
    End Sub
  3. Füge die E-Mail-Adresse und den Betreff in die entsprechenden Zellen im Arbeitsblatt "E-Mails" ein.

  4. Klicke auf den Button, um die E-Mail zu erstellen und die Signatur einzufügen.


Häufige Fehler und Lösungen

  • Die Signatur wird nicht angezeigt: Stelle sicher, dass du .GetInspector.Display verwendest, um die E-Mail zu aktivieren, bevor du die Signatur einfügst.

  • Fehlermeldungen beim Ausführen des Codes: Überprüfe, ob Outlook korrekt installiert ist und ob alle Verweise im VBA-Editor gesetzt sind.

  • Signatur wird nur beim Versenden angezeigt: Das Verhalten kann von den Outlook-Einstellungen abhängen. Möglicherweise wird die Signatur erst beim eigentlichen Versand hinzugefügt.


Alternative Methoden

Wenn du eine andere Methode ausprobieren möchtest, kannst du die Outlook-Optionen direkt verwenden, um eine Signatur für alle ausgehenden E-Mails festzulegen. Gehe zu:

  1. Datei > Optionen > E-Mail > Signaturen.
  2. Hier kannst du eine Standard-Signatur für neue Nachrichten und Antworten festlegen.

Diese Methode ist einfacher, wenn du nicht immer VBA verwenden möchtest.


Praktische Beispiele

Hier sind einige Beispiele, wie du die VBA-Signatur in verschiedene Szenarien integrieren kannst:

  • E-Mail mit spezifischer Signatur: Du kannst verschiedene Signaturen je nach Abteilung oder Zweck der E-Mail verwenden, indem du die entsprechenden HTML-Inhalte in den Code einfügst.

  • Automatisierte Berichterstattung: Erstelle eine E-Mail mit der aktuellen Berichterstattung und füge eine Signatur hinzu, um das professionelle Erscheinungsbild zu wahren.


Tipps für Profis

  • Nutze vba getinspector: Mit GetInspector kannst du auf die Eigenschaften der E-Mail zugreifen, bevor sie gesendet wird. Experimentiere mit htmlBody, um die Signatur anzupassen.

  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deinem Code, um sicherzustellen, dass dein Skript auch bei unerwarteten Situationen stabil bleibt.

  • Testen in verschiedenen Outlook-Versionen: Die Funktionalität kann je nach Outlook-Version variieren. Teste deinen Code in der Version, die du verwendest.


FAQ: Häufige Fragen

1. Wie kann ich mehrere Signaturen speichern?
Du kannst mehrere Signaturen in Outlook speichern und sie durch Auswahl im E-Mail-Editor ändern.

2. Warum wird meine Signatur nicht angezeigt, wenn die E-Mail gesendet wird?
Das kann an den Outlook-Einstellungen liegen. Überprüfe, ob die Signatur für neue Nachrichten oder Antworten aktiviert ist.

3. Kann ich die Signatur auch in Excel einfügen?
Ja, du kannst eine Unterschrift in Excel einfügen, indem du ein Bild deiner Unterschrift in eine Zelle einfügst.

Beliebteste Forumthreads (12 Monate)

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