Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Mails aus Excel generien
19.06.2012 17:38:21 andreas
NotSolved

Ansicht des Beitrags:
Von:
andreas 		Datum:
19.06.2012 17:38:21		 Views:
1478		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Mails aus Excel generien

Hallo

 

ich habe folgendes Problem: ich habe eine Exceltabelle mit mehrern Mailadressen und jeder Empfänger soll eine eigene E-Mail (über Groupwise) mit Anhang und individuellen Text  bekommen. nun hab ich da mal ein Code wo aber bei der deklaration des Anhangs die Meldung erscheint "Objekt erforderlich:

Sub Excel_Serial_Mail()
    Dim MyOutApp As Object, MyMessage As Object
    Dim i As Long
    Dim objMailItem As Object
    
    'Start der Sendeschleife an 143 Empfänger
    For i = 1 To 143
        Set MyOutApp = CreateObject("grpwise.exe")
        Set MyMessage = MyOutApp.CreateItem(0)
        Set Einladung = "C:\WINNT\profiles\Eigene Dateien\Dokumente\Adressen.pdf"
        With MyMessage
            'Die Empfänger stehen in Spalte A ab Zeile 1
            .To = Cells(i, 1) 'E-Mail Adresse
            'Der Betreff in Spalte B
            .Subject = Cells(i, 2) '"Betreffzeil"
            'Der zu sendende Text in Spalte C
            'Maximal 1024 Zeichen
            'Der Text wird ohne Formatierung übernommen
            .Body = Cells(i, 3)
            'Hier wird die Mail angezeigt
            '.Display
            'Hier wird die Mail gleich in den Postausgang gelegt
            .attachments.Add Einladung
            .Send
        End With
        'Objectvariablen leeren
        Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
        Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
        'Sendepause einschalten
        'Groupwise kann die Aufträge nicht schnell genug verarbeiten
        Application.Wait (Now + TimeValue("0:00:05"))
    Next i
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Mails aus Excel generien
19.06.2012 17:38:21 andreas
NotSolved