automatische Email versenden

Forumthread: automatische Email versenden

21.07.2003 10:09:35

Chris

Hallo,
ich möchte über die Auswahl einer Checkbox eine automatische Email versenden.
Ich habe bereits den VBA Quelltext aus diesem Forum gezogen und es funzt auch soweit ganz gut.
Aber auf anderen Rechnern mit den gleichen Voraussetzungen (Software und HW) bekomme ich allerdings immer eine Fehlermeldung, daß er "olMailItem" nicht finden bzw. ausführen kann.
Woran könnte das liegen???
Achso und noch eine Frage:
Wie kann ich jetzt in diese Mail bestimmte Zellenwerte (Bsp. Auftragsnummer)aus ener bestimmten Zeile aus der Tabelle mit reinschreiben?


Private Sub CheckBox1_Click()
Dim ObjOutlook As New Outlook.Application
Dim Antwortmail As Outlook.MailItem
Set Antwortmail = ObjOutlook.CreateItem(olMailItem)
With Antwortmail
.subject = "Text"
.To = "irgend@was.de"
.Body = "text"
.Send
End With
End Sub

Vielen vielen vielen Dank im voraus
Grüße Chris

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: automatische Email versenden

21.07.2003 10:23:17

Bernd Held
AW: automatische Email versenden

21.07.2003 10:16:53

Michael Scheffler
AW: automatische Email versenden

21.07.2003 13:08:49

Chris

AW: automatische Email versenden

21.07.2003 10:23:17

Bernd Held

Hallo Chris,

Sub Mail()
Dim ObjOutlook As Object
Dim Antwortmail As Object
Set ObjOutlook = CreateObject("Outlook.Application.10")
Set Antwortmail = ObjOutlook.CreateItem(0)
With Antwortmail
.Subject = "Text"
.To = "irgend@was.de"
.Body = "text"
.display
'.Send
End With
End Sub

Code eingefügt mit Syntaxhighlighter 1.14

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine automatische E-Mail aus Excel zu generieren, kannst Du VBA nutzen. Hier ist eine einfache Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke auf Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Private Sub CheckBox1_Click()
   Dim ObjOutlook As New Outlook.Application
   Dim Antwortmail As Outlook.MailItem
   Set Antwortmail = ObjOutlook.CreateItem(olMailItem)
   With Antwortmail
       .Subject = "Text"
       .To = "irgend@was.de"
       .Body = "Hier sind die Informationen: " & Range("A1").Value
       .Send
   End With
End Sub

Aktiviere die Checkbox in Deinem Excel-Dokument, um die E-Mail zu versenden.
Überprüfe die Outlook-Sicherheitseinstellungen, um sicherzustellen, dass der automatische E-Mail-Versand funktioniert.

Häufige Fehler und Lösungen

Fehler: "olMailItem nicht gefunden"
- Lösung: Stelle sicher, dass Du die richtige Outlook-Bibliothek in den VBA-Referenzen aktiviert hast. Gehe zu Extras > Verweise und aktiviere "Microsoft Outlook xx.x Object Library".
Outlook öffnet sich nicht oder sendet keine E-Mails
- Lösung: Überprüfe, ob Outlook korrekt installiert und als Standard-E-Mail-Programm festgelegt ist. Außerdem solltest Du sicherstellen, dass Du die richtige Outlook-Version verwendest.

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch Makros verwenden, um das automatische Versenden von Mails in Outlook zu steuern. Alternativ kannst Du Tools wie Power Automate verwenden, die eine benutzerfreundliche Oberfläche bieten, um E-Mails basierend auf Excel-Daten zu senden.

Praktische Beispiele

E-Mail mit Zellwerten:
- Du kannst den Code anpassen, um mehrere Zellwerte in die E-Mail einzufügen:
```
.Body = "Auftragsnummer: " & Range("A1").Value & vbCrLf & "Details: " & Range("B1").Value
```
E-Mail an mehrere Empfänger:
- Trenne die E-Mail-Adressen mit einem Semikolon:
```
.To = "empfaenger1@beispiel.de; empfaenger2@beispiel.de"
```

Tipps für Profis

Verwende Fehlerbehandlung in Deinem VBA-Code, um unerwartete Fehler abzufangen:

On Error GoTo ErrorHandler
' Dein Code hier
Exit Sub
ErrorHandler:
   MsgBox "Fehler aufgetreten: " & Err.Description

Teste den Code in einer sicheren Umgebung, bevor Du ihn in einer produktiven Umgebung einsetzt. Stelle sicher, dass Du die E-Mails nicht versehentlich an die falschen Empfänger sendest.

FAQ: Häufige Fragen

1. Kann ich auch HTML-Format für die E-Mail verwenden?
Ja, Du kannst die HTMLBody-Eigenschaft anstelle von Body verwenden, um HTML-Inhalte zu versenden.

2. Welche Excel-Version benötige ich?
Die oben beschriebenen Schritte sollten in den meisten modernen Excel-Versionen (Excel 2010 und höher) funktionieren, vorausgesetzt, Du hast Outlook installiert.

3. Wie kann ich sicherstellen, dass die E-Mail nicht im Spam landet?
Verwende vertrauenswürdige E-Mail-Adressen und stelle sicher, dass der Inhalt Deiner E-Mail nicht spamähnlich ist. Achte auch auf die Verwendung von korrekten Betreffzeilen.

Mit diesen Anleitungen und Tipps kannst Du ganz einfach E-Mails automatisch aus Excel versenden!

Beliebteste Forumthreads (12 Monate)