Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Serienmail mit E-Mail Adressen aus einer Tabelle mit Outlook
zurück: textbox format zeit weiter: Form mit leerem Datensatz laden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
heli1957
Neuling


Verfasst am:
19. Jan 2014, 15:32
Rufname:


Serienmail mit E-Mail Adressen aus einer Tabelle mit Outlook - Serienmail mit E-Mail Adressen aus einer Tabelle mit Outlook

Nach oben
       

Liebe Forenmitglieder

Ich habe mein Betriebssystem von Windows 8 + Office 2013 auf Windows 8.1 + Office neu aufgesetzt.
Seither funktioniert mein VBA Makro zum Serienmailversand nicht mehr.
Ablauf: Aus einer Excel-Mappe wird jeweils ein Blatt ausgewählt. Der Makro gestartet. Automatisch wird dann das Blatt kopiert und mit dem Blattnamen in einem Verzeichnis abgespeichert. Auf dem Blatt ist in Zelle A5 die E-Mailadresse abgelegt. Diese wird herangezogen und hat bis jetzt immer Outlook geöffnet die Adresse eingefügt und das abgespeicherte Excel-Blatt angehängt und versendet. Dies funktioniert unter Windows 8.1 + Outlook 2013 nicht mehr. Es kommt folgende Fehlermeldung:
Zitat:
Laufzeitfehler ´-2147417851 (80010105)‘: Die Methode `To` für das Objekt `_MailItem` ist fehlgeschlagen
Makro:
Code:
Sub Kontoblatt_via_Outlook_Senden_einzeln()
    Dim Nachricht As Object, OutApp As Object
    Dim SavePath As String, newLine As String, AWS As String
   
    SavePath = "D:\Test\Mailausgang"
    Set OutApp = CreateObject("Outlook.Application")
    'Kopiert aktuelles Sheet in eine neue Mappe
    'welche nur diese Tabelle enthält
    ActiveSheet.Copy
    'Auswahl des Feldes im neue Blatt
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    'Speichert die Datei unter dem Tabellennamen und dem Namen in A1
    ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " _
                        & ActiveSheet.Range("A1") _
                        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    'Aktive Arbeitsmappe wird als mail gesendet
    AWS = ActiveWorkbook.FullName
    'InitializeOutlook = True
    Set Nachricht = OutApp.CreateItem(0)
    With Nachricht
        'vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv´
        'funktioniert mit Windows 7, 8 und Office 2010, 2013
        .To = ActiveSheet.Range("A5")
        'bei Direkteingabe der E-Mailadresse läuft es unter Windoms 8.1
        '.To = "mustermann@gmx"
        '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
        .Subject = "Testsendung"
        .Attachments.Add AWS
        'Hier wird eine normale Text Mail erstellt
        .Body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
        'Hier wird die HTML Mail erstellt
        newLine = "<br>"
        .HTMLBody = " Lieber Freund " _
        '.Display
         ActiveWorkbook.Close
        'Hier wird die Mail gleich in den Postausgang gelegt
        .Send
        'Hier könnte die Datei wieder gelöscht werden
        'Kill AWS
    End With
    'OutApp.Quit
    Set OutApp = Nothing
    Set Nachricht = Nothing
    If ActiveSheet.Index = Worksheets.Count Then
        Worksheets(1).Select
        If ActiveSheet.Index = "Pilotenkonten" Then End '<== besser Exit Sub '(Edit by Willi Wipp)
      Else
        ActiveSheet.Next.Select
    End If
End Sub
Kann mir bitte jemand weiterhelfen?
Danke
Confused
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Software Forum (Sonstige Software): Nachfolgesoftware für Outlook gesucht 3 ksc78 187 01. Jan 2014, 17:40
ksc78 Nachfolgesoftware für Outlook gesucht
Keine neuen Beiträge Visual Studio und dotNet Forum: Excel Tabelle mi VB ausgeben ?! 1 Julian.G95 995 08. Aug 2013, 08:28
lothi Excel Tabelle mi VB ausgeben ?!
Keine neuen Beiträge Sicherheit: Sicherheit bei T-Online Email Konto 3 Eskimo 603 31. Okt 2012, 16:55
steve1da Sicherheit bei T-Online Email Konto
Keine neuen Beiträge Software Forum (Sonstige Software): Google maps Adressen nach Outlook importieren 0 apalliker 2020 18. Jun 2010, 11:46
apalliker Google maps Adressen nach Outlook importieren
Keine neuen Beiträge Software Forum (Sonstige Software): Google map Adressen import 2 Muecke1982 11272 21. Feb 2010, 18:51
sphere1012 Google map Adressen import
Keine neuen Beiträge Visual Studio und dotNet Forum: Automatisierungs-Fehler bei Zugriff auf Outlook via VB.net 0 glurak15 1183 18. Dez 2009, 10:27
glurak15 Automatisierungs-Fehler bei Zugriff auf Outlook via VB.net
Keine neuen Beiträge Visual Studio und dotNet Forum: DLL für Outlook erstellen? Im VBE möglich? 1 Dengi 1184 09. Dez 2009, 11:10
Michael Bauer DLL für Outlook erstellen? Im VBE möglich?
Keine neuen Beiträge Windows Vista & Windows 7 Forum: Outlook 2007 unter Windows 7 0 SpecialFighter 3918 24. Aug 2009, 17:27
SpecialFighter Outlook 2007 unter Windows 7
Keine neuen Beiträge Hardware & Betriebssystem Forum: Outlook 2000: Absturz bei Datei auswählen 4 DrTod3000 3815 22. Jan 2009, 22:30
svewe77 Outlook 2000: Absturz bei Datei auswählen
Keine neuen Beiträge Software Forum (Sonstige Software): frage zur email 4 Abstract 579 16. März 2008, 20:06
waldwuffel frage zur email
Keine neuen Beiträge Sicherheit: Excel-Dateien nach Outlook exportieren! 1 Gast 4252 14. März 2008, 13:30
Andi F. Excel-Dateien nach Outlook exportieren!
Keine neuen Beiträge Visual Studio und dotNet Forum: Ordner Synchronisieren und Outlook PST-Datei einlesen vb.NET 0 dognose 4444 15. Jan 2008, 16:29
dognose Ordner Synchronisieren und Outlook PST-Datei einlesen vb.NET
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project