Beiträge von Mok1801

    Entschuldigung wegen dem mehrfach Eintrag.



    Vielen Dank für den Hinweis.


    Jetzt müsst ich die den Dateinamen der PDF nur mit einer Datei auf dem Server abgleichen, damit die richtige PDF an den richtigen Kunden geht.
    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?
    %EditEs sind immer mehrere PDFs in dem Verzeichnis und nachdem versenden bleiben diese dort auch liegen

    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

    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 NotesSessionDim db As NotesDatabase
    Dim TextItem As NotesRichTextItem
    Dim TextStyle As NotesRichTextStyle
    Dim empfaenger As StringDim 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")


    '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 ElseCall Textitem.EmbedObject(EMBED_ATTACHMENT,"","\\Server\DeptHomes\Operations\OK Logistics\CSV\Lieferscheine\")



    End If


    'Dokument senden


    Call mail.Send(True)End Function



    End Function

    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