Attachment einfügen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Attachment einfügen

    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
  • Quellcode

    1. pdf = Dir("\\Server\DeptHomes\Operations\OK Logistics\CSV\Lieferscheine\", 0)
    2. If pdf = "" Then ElseCall Textitem.EmbedObject(EMBED_ATTACHMENT,"","\\Server\DeptHomes\Operations\OK Logistics\CSV\Lieferscheine\")

    du gibst in deinem Code aber ein Verzeichnis mit!
    Es müsste aber eine Datei mitgegeben werden.

    Quellcode

    1. pdf = Dir("\\Server\DeptHomes\Operations\OK Logistics\CSV\Lieferscheine\", 0)
    2. If pdf = "" Then ElseCall
    3. Textitem.EmbedObject(EMBED_ATTACHMENT,"",pdf)


    Gruß
    Dirk
    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein
  • 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