Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VBA für Serienemail aus Excel mit Outllook Fehler
Autor: AvdD
Datum: 11.12.15 12:44
Hallo, beim Ausführen des folgenden Scriptes erhalte ich den Fehler "Die Methode ´To` für das Objekt `_Mailterm´ ist fehlgeschlagen VBAProject". Kann bitte jemand helfen. Vielen Dank. ----------------- Sub Excel_Serial_Mail() Dim objOLOutlook As Object 'Steht für die Anwendung Outlook Dim objOLMail As Object 'Steht für die einzelnen E-Mails Dim lngMailNr As Long 'Zeile, in der die untereste E-Mail in Spalte A steht Dim lngZaehler As Long 'Zähler, welche Zeile gerade angesprochen wird Dim strAttachmentPfad1 As String, strAttachmentPfad2 As String 'Die Anhänge Dim strSignatur As String 'Die Anhänge On Error GoTo ErrorHandler 'Bei einem Fehler, wird unten die Fehlerbehandlung angesprochen Set objOLOutlook = CreateObject("Outlook.Application") lngMailNr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Ermittlung unterste Zeile in Spalte A 'Hier Pfade und Dateien anpassen 'strAttachmentPfad1 = "C:\Users\......" 'Die Anhänge 'strAttachmentPfad2 = "C:\Users\......" 'Die Anhänge 'Hier Felder und Spalten der Excel Tabelle anpassen 'Email Adresse - Spalte 8 'Anredefloskel - Spalte 12 'Betreff - Spalte 22 For lngZaehler = 2 To lngMailNr If Cells(lngZaehler, 2) <> "" Then Set objOLMail = objOLOutlook.CreateItem(olMailItem) With objOLMail '.SentOnBehalfOfName = "tricktrack@test.de" 'Hier wird der Absender festgelegt .To = Cells(lngZaehler, 8) 'Empfänger AN .CC = "" 'Optional Kopie .BCC = "" 'Optional Blindkopie .GetInspector.Activate strSignatur = .Body .Sensitivity = 3 'Vertraulichkeit (normal = 0) .Importance = 2 'Wichtigkeit .Subject = Cells(lngZaehler, 22) 'Betreff .BodyFormat = olFormatPlain 'E-Mail-Format .Body = Cells(lngZaehler, 12) & "," & vbCrLf & "der Text steht hier" & vbCrLf & strSignatur 'Inhalt der Mail 'Hier anpassen '.Attachments.Add strAttachmentPfad1 'Die Anhänge '.Attachments.Add strAttachmentPfad2 'Die Anhänge .Send 'Versand der Mail '.Display End With Set objOLMail = Nothing 'E-Mail-Objekt wird beendet End If Next lngZaehler 'Zur nächsten E-Mail Set objOLOutlook = Nothing 'Anwendung Outlook wird vaporisiert Exit Sub ErrorHandler: MsgBox Err.Number & " " & Err.Description & " " & Err.Source, _ vbInformation, "Ein Fehler ist aufgetreten" Exit Sub End Sub

VBA für Serienemail aus Excel mit Outllook Fehler	3.224	AvdD	11.12.15 12:44
Re: VBA für Serienemail aus Excel mit Outllook Fehler	1.568	Blackbox	12.12.15 18:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen