Emails mit "Do While"-Schleife im Textbereich erzeugen

[nervzwergl]

Hallo zusammen,

ich hänge gerade an einem Problem und hoffe, Ihr könnt mir weiter helfen.

Folgendes Problem habe ich:

Ich möchte aus einem Textfile jede einzelne Zeile in den Nachrichtentext kopieren um die Inhalte dann ohne anfügen einer Anlage versenden zu können.

Das Ganze soll dann in etwa so aussehen:

"Hallo,

folgende Datensätze möchte ich an Sie zur weiteren Bearbeitung übergeben:

--> Textzeile 1 aus Textfile
--> Textzeile 2 aus Textfile
--> usw.

Mit freundlichen Grüßen

Nervzwergl"
Ist es möglich, innerhalb der msgnotetext Eigenschaft eine Schleife einzubauen? Das Textfile ändert sich nämlich bei jeder Email.

Hoffe, mir kann jemand helfen.

Grüße

Nervi

 

[Elvan]

Hi nervzwergl

Also Du hast ne Textfile...
und dann willst du was machen?
Wie lädst Du die File? Ist das ne .txt?
Und willst jede Zeile in eine TextBox packen? Oder jede Textzeile in eine eigene TextBox?
Ist die Anzahl der Zeilen bestimmt oder unbestimmt?
Kann das auch in eine ListBox?

ich wollte schon den Code schreiben, aber irgendwie hinderten mich dann doch die oberen Fragen. Sry.

 

[nervzwergl]

Hi,

ich bin dabei ein Tool zu schreiben, mit dem man Informationen aus einer Datenbank per Email an einen Kollegen übergeben kann.

Im Moment funktioniert das so, dass das Programm, nach klicken auf einen command button ein txt file generiert und das auf C: ablegt. Anschließend generiert das Tool eine Email mit einem vorgegebenen Text (siehe oben) und fügt das Textfile als Attachment an.

Das ist der derzeitige Status. Funktioniert auch wunderbar, ABER:

Ich möchte nun den Inhalt dieses txt Files in diesen vorgegebenen Nachrichtentext direkt hineinbekommen, damit ich nicht ein Attachment anfügen muss.

Der Inhalt des Files variiert von mal zu mal. Ich wollte das txt file Zeile für Zeile in den Nachrichtenbereich der Email kopieren, jedoch weiß ich nicht, wie ich das anstellen soll.

Der Code für die Email sieht momentan so aus:

With MAPIS
        .SignOn
        mailsend.SessionID = .SessionID
    End With
    
    With mailsend
        .Compose
        .RecipAddress = txtDisp.Text
        .MsgSubject = "Dispatch from " & Time
        .MsgNoteText = "Hello, " & vbCrLf & vbCrLf & "The Data in the attachment file are dispatched to you for further handling." & _
            vbCrLf & "Thank you." & vbCrLf & vbCrLf & "Regards" & vbCrLf & nameUser & vbCrLf & vbCrLf & _
            "NOTE: This mail was auto generated by xxx"        
        .AttachmentIndex = 0
        .AttachmentPosition = Len(mailsend.MsgNoteText) - 1
        .AttachmentName = "Dispatched_SRs.txt"
        .AttachmentPathName = "c:\Dispatched_SRs.txt"
        .AddressResolveUI = True
        .ResolveName
        .Send
    End With
MAPIS.SignOff

Wie bekomme ich den Inhalt des txt-Files in den msgnotetext Bereich?

Danke schon mal vorab...

Grüße

 

[Elvan]

Meinst Du soetwas?

Dim FF As Integer
Dim sText As String
FF = FreeFile

'...
Open .AttachmentPathName For Input As FF
  sText = Input(LOF(FF), #FF)
Close #FF
.MsgNoteText = .MsgNoteText & vbCrLf & vbCrLf & sText
'...

Kann noch optimaler, aber auf die schnelle gehts auch so.

 

[nervzwergl]

Hi nochmal,

sorry, dass ich erst so spät antworte.

Klappt wunderbar, vielen Dank.
Hatte es zwar vorher auch anders gelöst, aber deine Lösung war da etwas eleganter.

Vielen Dank nochmal

Gruß

Nervzwergl