Attachment einfügen (LotusScript)

Halli Hallo,

ich versuche ein Attachment (PDF Lieferscheine) in meine mittelsLotius Script generierte Mail einzufügen.
Das Problem ist das sich das Attachment immer verändert und ich bin gerade echt ein wenig ratlose, kann mir jmd ein Tipp bzw Rat geben?

Quellcode:

Function MailSend (mail As NotesDocument)

Dim se As New NotesSession
Dim db As NotesDatabase
Dim TextItem As NotesRichTextItem
Dim TextStyle As NotesRichTextStyle
Dim empfaenger As String
Dim datei As String
Dim pdf As String

Set db = se.CurrentDatabase
'Neues Dokument erstellen
Set mail = New NotesDocument(db)

'Empfänger
'empfaenger = InputBox("Please insert the receiver", "Send to","Receiver")
'If

'Standardfelder setzen
Call mail.ReplaceItemValue("sendto", empfaenger)
Call mail.ReplaceItemValue("subject", "ABC Shipping Information")

'Feld Body erstellen
Set TextItem = New NotesRichTextItem(mail, "body")

Set TextStyle = se.CreateRichTextStyle
TextStyle.Bold = True
Call Textitem.AppendStyle(TextStyle)

'Text einfügen
Call TextItem.AppendText("Dear Sir or Madam")
TextStyle.Bold = False
Call Textitem.AddNewline(2)
Textstyle.FontSize = 10
Textstyle.NotesColor = 0
Call Textitem.AppendStyle(TextStyle)
Call Textitem.AppendText("Please be informed, that a shipment has left our warehouse with UPS.")
Call Textitem.AppendText("In the attachment you will find their delivery note.")
Textitem.AddNewline(3)
Call Textitem.AppendText("To track your shipment, please use the following link:")
Textitem.AddNewline(1)
Call Textitem.AppendText("http://www.ups.com/tracking/tracking.html ")
Textitem.AddNewline(3)
Call Textitem.AppendText("Kind Regards")
Textitem.AddNewline(2)
Call Textitem.AppendText("Order Processing Department")
Textitem.Addnewline(1)
Call Textitem.AppendText("ABC GmbH")
Textitem.AddNewline(2)
Textstyle.FontSize = 10
Textstyle.NotesColor = 0

pdf = Dir("\\Server\DeptHomes\Operations\OK Logistics\CSV\Lieferscheine\", 0)
If pdf = "" Then
Else
Call Textitem.EmbedObject(EMBED_ATTACHMENT,"","\\Server\DeptHomes\Operations\OK Logistics\CSV\Lieferscheine\")
End If

'Dokument senden
Call mail.Send(True)


End Function

Okay danke für die schnell Antwort.

Mein Problem ist, es kommt eine Email rein mit einer LieferCSV Datei, wo Trackingnummer, Kundenummer, Rechnungsnummer etc enthalten sind, diese wird ausgelesen und in einzelne Strings gesplittet. Des Weiteren gibt eine weitere CSV Datei auf dem Server, die ebenfalls ausgelesen wird (Emailadresse und Kundennummer).
Ich bin jetzt soweit das er die Kundennummer aus der LieferCSV mit der Datei auf dem Server abgleicht und i somit schon mal die richtige Mailadressen habe für die jeweilige Kundennummer.
Die PDF die immer angehängt werden soll enthält im Dateinamen die Rechnungsnummer.

Wie häng ich denn ein Attachment an, wenn sich der Name immer ändert?

%Edit
Es sind immer mehrere PDFs in dem Verzeichnis und nachdem versenden bleiben diese dort auch liegen

und das mach ich genauso, wie oben ?
(Vergleich zwischen der LieferCSV und der CSV auf dem Server)

Auf einem Server und er springt an, sobald neue MAILS reinkommen.

vielen Dank für den Link

Super vielen Dank

Ich habe das mit einem cmd script gemacht ... das ein Netzlaufwerk eingebunden wird
die pdf dahin kopiert wird, wo ich das möchte.

Function PDFs As Boolean

Dim i As Integer
Dim Positionen As Variant

For i=0 To UBound(Lieferscheine)-1
Positionen = Split(Lieferscheine(i), ";")

If InStr(PathP, Positionen(2)) Then
Print ".pdf" & " - Reference " & Positionen(2)
End If

Next

End Function

PathP = der Pfad auf dem Server, wo die PDFs liegen

ER vergleicht nicht die Referencenumber aus der CSV mit der im PDF Namen .... habt ihr ne Idee?

Das Array Lieferschein ist eigtl nur zum Splitten des Strings da und das er alle Strings an Position 2 (was in der CSV Datei die Reference Nummer ist) mit den PDFs im Ordner vergleichen soll

"Lieferscheine" habe ich global deklariert.

Der Debugger springt zwar in die Function rein, aber ich bekomm die Werte nicht raus.

Fehlerbehandlungen habe ich noch keine eingebaut