Ich habe da mal folgende Frage:
Ich habe eine Anwendung entwickelt, welche ein PDF befüllt und anschließend ein Faxmail (07xx/ xxxxx@fax) über unseren Faxserver an eine Faxnummer verschickt. Technisch gesehen, wird der Anhang inkl. Bodyinhalt (sollte es einen geben) als *.tiff umgewandelt und versendet. Mein Problem ist nun hierbei, dass nicht nur das PDF sauber versendet wird, sondern auch das Icon inkl. des Namens des pdf (z. B. test.pdf) als extra Seite. Wenn ich manuell über ein neues Memo einen Anhang hinzufüge, wird das Icon nicht mit versendet.
Hat jemand eine Lösungsmöglichkeit, z. B. wie man ein Attachment einem Richtext-Feld hinzuzufügen, ohne dass der Body den Filename/ Icon enthält?
Hier meine Funktion:
Sub SendeFax (session As NotesSession, db As NotesDatabase, docWeb As NotesDocument)
On Error Goto errHandle
Dim docSend As NotesDocument
Dim docMail As NotesDocument
Dim docPDF As NotesDocument
Dim viewMail As NotesView
Dim viewPDF As NotesView
Dim vLsPdfWrapper
Dim rtitemSend As NotesRichTextItem
Dim rtitemMail As NotesRichTextItem
Dim templateBody As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtrange As NotesRichTextRange
Dim pdfFilename As String
Set docSend = New NotesDocument( db )
Set rtitemSend = New NotesRichTextItem (docSend,"Body")
Set viewMail = db.GetView("Mailvorlagen")
Set viewPDF = db.GetView("PDF-Formulare")
Set docMail = viewMail.GetDocumentByKey("Fax", True)
Set rtitemMail = docMail.GetFirstItem("MAILBODY")
Set rtnav = rtitemMail.CreateNavigator
Set rtrange = rtitemMail.CreateRange
Call rtitemSend.EmbedObject(EMBED_ATTACHMENT, "", "H:\test.pdf", "test")
Call rtitemSend.Compact
docSend.Form = "Memo"
docSend.Principal = "ABSENDER"
docSend.INetFrom = "ABSENDER"
docSend.SMTPOriginator = "ABSENDER"
docSend.Subject = docMail.GetItemValue("MAILBETREFF")(0)
docSend.From = docMail.GetItemValue("MAILABSENDER")(0)
docSend.displayfrom = docMail.GetItemValue("MAILABSENDER")(0)
docSend.tmpDisplayFrom_Preview = docMail.GetItemValue("MAILABSENDER")(0)
docSend.tmpDisplaySentby = docMail.GetItemValue("MAILABSENDER")(0)
docSend.displaysent = docMail.GetItemValue("MAILABSENDER")(0)
docSend.ReplyTo = docMail.GetItemValue("MAILREPLY")(0)
docSend.Sendto = docMail.GetItemValue("MAILEMPFAENGER")(0)
Call docSend.ReplaceItemValue("Form","Memo")
Call docSend.Save( True, False)
Call docSend.Send( True,True)
Exit Sub
errHandle:
Messagebox "Bestellung - Error" & Str(Err) & ": " & Error$
Exit Sub
End Sub
Vielen Dank !