none
[VBA] Mail mit Anhang über Word verschicken RRS feed

  • Frage

  • Hallo,

    ich versuche zurzeit ein VBA-Programm für Word zu schreiben, um Serienbriefe mit einem Anhang per mail zu verschicken.
    Allerdings kann ich damit nur jeweils eine Mail pro Aufruf des Skriptes versenden. Bei der zweiten Mail, stürzt das Skript immer wieder mit dieser Fehlermeldung ab:

    http://img545.imageshack.us/i/fehlerj.jpg/

     

    Hier ein Ausschnitt meines Codes:

    Sub sendeMail(Adresse As String, Betreff As String, Anhang As String)
      Dim mail As Object
      Set mail = Application.ActiveDocument.MailEnvelope.Item
     
     
      mail.Subject = Betreff
      mail.To = Adresse
      mail.Attachments.Add Anhang
     
      mail.Send
    End Sub
    

    Wenn ich den Anhang-Befehl entferne, lassen sich jedoch dann auch mehrere mails ohne fehlermeldung versenden.

     

    Weiß jemand vielleicht wie man den Fehler beseitigt. Oder eine andere Möglichkeit kennt Serienbriefe (samt Formatierungen ) mit Anhang zu verschicken .

    P.S. Ich benutze hierbei:
    Windows XP Professional mit SP3
    Word 2007 und Outlook 2007

     

    Dienstag, 19. April 2011 05:53