Microsoft Excel

Herbers Excel/VBA-Archiv

Email bodytext aus Datei

    Betrifft: Email bodytext aus Datei von: Sascha
    Geschrieben am: 06.10.2003 23:20:52

    Hab mich jetzt ne ganze weile durch gekämpft, aber das was ich suche hab ich nicht gefunden.

    Ich möchte eine Email mit Anhang versenden, diese soll im Body-Teil den Inhalt der Datei body.txt stehen haben.

    Folgendes verwende ich:


    Sub Mailversand()
    
    Dim object
    Dim mail
    
    Set object = CreateObject("Outlook.Application")
    Set mail = object.CreateItem(0)
    
    mail.To = "'Empfänger'"
    mail.Subject = "'Betreff'"
    mail.Body = "?????" 'genau hier liegt das Problem
    mail.Attachments.Add "c:\test.pdf"
    mail.Display
    mail.Send
    
    End Sub
    


    bei m.body = ... soll dann der Inhalt der Datei Body.txt stehen


    Im Voraus besten Dank
      


    Betrifft: AW: Email bodytext aus Datei von: Hans W. Herber
    Geschrieben am: 07.10.2003 04:15:10

    Hallo Sascha,

    die Textdatei muss eingelesen werden. Ein Beispiel fürs Einlesen findest Du hier:
    https://www.herber.de/bbs/texte/12readtext.xls

    gruss hans


      


    Betrifft: AW: Email bodytext aus Datei von: Sascha
    Geschrieben am: 07.10.2003 08:46:02

    Danke für die schnelle Antwort.

    Ich wusste, dass sie eingelesen werden muss. Da ich aber erst angefangen habe mich in die Materie einzuarbeiten, ist es scher das alleine hin zu bekommen.

    mfG


    Sascha