E-Mails über internen Webmailer mit VBA versenden
Schritt-für-Schritt-Anleitung
Um E-Mails mit VBA über einen internen Webmailer zu versenden, kannst du das folgende Beispiel nutzen. Stelle sicher, dass dein SMTP-Server korrekt eingerichtet ist. Hier ist ein einfacher VBA-Code, den du anpassen kannst:
Sub CDO_Personalized_Mail_Body()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
Dim Flds As Variant
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.10.78.152"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "deine.email@domain.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "dein_passwort"
.Update
End With
For Each cell In Sheets("Sheet1").Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Offset(0, 1).Value <> "" Then
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "yes" Then
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = cell.Value
.From = "deine.email@domain.com"
.Subject = "Reminder"
.TextBody = "Dear " & cell.Offset(0, -1).Value & vbNewLine & vbNewLine & _
"Please contact us to discuss bringing your account up to date"
.Send
End With
Set iMsg = Nothing
End If
End If
Next cell
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Häufige Fehler und Lösungen
-
Fehlermeldung: 530 SMTP authentication is required
- Lösung: Stelle sicher, dass du in der Konfiguration Username und Passwort für den SMTP-Server angegeben hast. Siehe Beispiel oben.
-
Fehlermeldung: Die Nachricht konnte nicht an den SMTP-Server gesendet werden.
- Lösung: Überprüfe, ob die SMTP-Server-Adresse und der Port korrekt sind und dass der Server aktiv ist.
-
Fehlermeldung: Der Server hat eine oder mehrere Empfängeradressen zurückgewiesen.
- Lösung: Stelle sicher, dass die E-Mail-Adressen korrekt und im richtigen Format eingegeben sind.
Alternative Methoden
Falls du nicht mit CDO arbeiten möchtest, gibt es alternative Methoden, um E-Mails zu versenden:
- Blat: Ein externes Tool, das ebenfalls E-Mails über SMTP versenden kann.
- Outlook Automation: Wenn Outlook installiert ist, kannst du auch die Outlook-Objektbibliothek verwenden, um E-Mails zu versenden. Dies benötigt jedoch, dass Outlook konfiguriert ist.
Praktische Beispiele
Angenommen, du möchtest eine E-Mail an mehrere Kontakte in einer Excel-Liste senden. In der ersten Spalte stehen die Namen, in der zweiten die E-Mail-Adressen und in der dritten steht "ja", wenn eine E-Mail gesendet werden soll.
' Beispielcode siehe Schritt-für-Schritt-Anleitung
Mit dem obigen Code kannst du für jede Zeile, die "ja" in der dritten Spalte hat, eine personalisierte E-Mail versenden.
Tipps für Profis
- Debugging: Verwende
Debug.Print, um Werte von Variablen während der Ausführung anzuzeigen.
- Sicherheit: Achte darauf, dass Passwörter in deinem Code nicht hardcodiert werden. Überlege, wie du sensible Informationen sicher verwalten kannst.
- Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um das Programm robuster zu machen. Nutze
On Error Resume Next und überprüfe anschließend auf Fehler.
FAQ: Häufige Fragen
1. Wie setze ich den SMTP-Server richtig ein?
Um den SMTP-Server einzurichten, benötigst du die IP-Adresse oder den Domainnamen des Servers sowie den korrekten Port (in der Regel 25 oder 587).
2. Kann ich E-Mails auch ohne VBA versenden?
Ja, du kannst auch Tools wie Blat oder andere E-Mail-Clients nutzen, um E-Mails ohne VBA zu versenden.
3. Wie integriere ich HTML in meine E-Mails?
Um HTML-Formatierungen in deine E-Mails zu verwenden, setze die Eigenschaft .HTMLBody anstelle von .TextBody im CDO.Message-Objekt.