Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: email aus Outlookvorlage versenden

email aus Outlookvorlage versenden
21.10.2007 17:39:00
Detlef
Hallo,
versuche mit folgendem Code

Sub Outlook_ansteuern()
Dim olApplication As Object
Dim objEMail As Object
Dim Vorlage As String
Set olApplication = CreateObject("Outlook.Application")
Set objEMail = olApplication.CreateItemFromTemplate(Vorlage)
verz = ActiveWorkbook.Path
Vorlage = verz + "\Vorlagen\RDG.oft"
'    '***Kommentartext als Mailtext auslesen
'    Sheets("MAILTEXT").Range("A1").Comment.Shape.Select True
'    mailtext = Sheets("MAILTEXT").Range("A1").Comment.text
With objEMail
'        .To = strEMail
'        .CC =   ***Kopieempfänger
'        .BCC =  ***Blindkopieempfänger
'        .Subject = strTitel
'        .Body = mailtext
'        .Attachments.Add verz + "\TEMP\" + strSTAMMNR + ".xls"
.ReadReceiptRequested = False      '***ohne Empfangsbestätigung
'        .DeleteAfterSubmit = True         '***Mail nicht abspeichern
.Display
End With
Set olApplication = Nothing
Set objEMail = Nothing
End Sub


eine Mail aus einer Vorlage zu erstellen. Bekomme dann aber immer folgenden Fehler:
Laufzeitfehler '-2147287037 (80030003)':
Die Datei "" kann nicht geöffnet werden. Möglicherweise existiert die Datei nicht .............

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: email aus Outlookvorlage versenden
21.10.2007 19:18:00
Ramses
Hallo
Wie soll das funktionieren, wenn du die Variable "Vorlage" erst mit einem Wert füllst, nachdem du die Variable verwendest ?
Gruss Rainer

AW: email aus Outlookvorlage versenden
22.10.2007 10:01:00
Detlef
Hallo Rainer,
natürlich, hatte wohl gestern was auf der Brille. Hatte kaum die Anfrage an Euch raus, da hatte ich selbst die göttliche Erkenntnis.
sorry, trotzdem danke für die schnelle Reaktion.
Gruss Detlef
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Email aus Outlookvorlage versenden


Schritt-für-Schritt-Anleitung

Um eine Email aus einer Outlookvorlage zu versenden, befolge die nachstehenden Schritte:

  1. Outlook-Vorlage erstellen:

    • Öffne Outlook und erstelle eine neue Email.
    • Fülle die Felder wie Betreff und Body nach Deinen Wünschen aus.
    • Klicke auf „Datei“ > „Speichern unter“.
    • Wähle im Dateityp „Outlook-Vorlage (*.oft)“ aus und speichere die Datei im gewünschten Ordner.
  2. VBA-Code einfügen:

    • Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ klickst und „Einfügen“ > „Modul“ wählst.
    • Kopiere und füge den folgenden Code ein:
    Sub Outlook_ansteuern()
       Dim olApplication As Object
       Dim objEMail As Object
       Dim Vorlage As String
       Dim verz As String
    
       verz = ActiveWorkbook.Path
       Vorlage = verz & "\Vorlagen\RDG.oft" ' Pfad zur Vorlage anpassen
    
       Set olApplication = CreateObject("Outlook.Application")
       Set objEMail = olApplication.CreateItemFromTemplate(Vorlage)
    
       With objEMail
           .To = "empfaenger@example.com" ' Empfängeradresse anpassen
           .Subject = "Dein Betreff" ' Betreff anpassen
           .Body = "Dein Nachrichtentext" ' Nachrichtentext anpassen
           .Display
       End With
    
       Set olApplication = Nothing
       Set objEMail = Nothing
    End Sub
  3. Code ausführen:

    • Drücke F5, um den Code auszuführen. Die Email aus der Outlookvorlage sollte jetzt geöffnet werden.

Häufige Fehler und Lösungen

  • Laufzeitfehler -2147287037:

    • Problem: „Die Datei kann nicht geöffnet werden. Möglicherweise existiert die Datei nicht.“
    • Lösung: Stelle sicher, dass der Pfad zur .oft Datei korrekt ist. Überprüfe auch, ob die Datei existiert.
  • Vorlage nicht gesetzt:

    • Problem: Du versuchst, die Vorlage zu verwenden, bevor sie definiert ist.
    • Lösung: Setze die Variable Vorlage vor der Verwendung.

Alternative Methoden

Falls Du keine VBA verwenden möchtest, kannst Du auch manuell eine Mail-Vorlage in Outlook speichern und diese bei Bedarf öffnen. Gehe dazu zu „Datei“ > „Neu“ > „Aus Vorlage“ und wähle Deine gespeicherte Vorlage aus.


Praktische Beispiele

Hier ist ein Beispiel, wie Du eine Excel Email Template erstellen kannst, das Daten aus einer Excel-Tabelle in die Email einfügt:

Sub EmailMitDaten()
    Dim olApp As Object
    Dim olMail As Object
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    olMail.To = "empfaenger@example.com"
    olMail.Subject = "Daten aus Excel"
    olMail.Body = "Hier sind die Daten: " & Sheets("Tabelle1").Range("A1").Value
    olMail.Display

    Set olMail = Nothing
    Set olApp = Nothing
End Sub

Tipps für Profis

  • Nutze die Outlook-Vorlage verwenden Shortcut: Stelle einen Shortcut in Outlook ein, um schneller auf Deine Vorlagen zugreifen zu können.
  • Experimentiere mit Outlook Textvorlage erstellen, um häufig verwendete Textelemente in Emails schnell einzufügen.
  • Achte darauf, dass Du die Outlook 2010 Vorlage erstellen Funktion nutzt, um sicherzustellen, dass die Vorlagen kompatibel sind.

FAQ: Häufige Fragen

1. Wie kann ich eine Outlook Vorlage öffnen?
Du kannst eine Outlook-Vorlage öffnen, indem Du in Outlook zu „Datei“ > „Neu“ > „Aus Vorlage“ gehst und die gewünschte Vorlage auswählst.

2. Wo sollte ich die .oft Datei speichern?
Speichere die .oft Datei an einem leicht zugänglichen Ort, idealerweise im gleichen Verzeichnis wie Deine Excel-Datei, um den Pfad einfach zu halten.

3. Was mache ich, wenn der VBA-Code nicht funktioniert?
Überprüfe den Code auf Syntaxfehler und stelle sicher, dass alle Variablen korrekt definiert sind. Achte auch darauf, dass Outlook installiert und korrekt konfiguriert ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige