Domino 9 und frühere Versionen > ND7: Entwicklung

Faxversand per Agent

(1/1)

saimän:
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:


--- Code: ---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
--- Ende Code ---


Vielen Dank !

gossifu:
Hast Du schonmal versucht, das Dokument ohne Speichern zu versenden?
Bei einer normalen Memo wird die Mail auch erst nach dem Senden gespeichert.

mfg

Kjeld

it898ur:
Hallo,

wir hatten das Problem auch und haben uns damit beholfen den PDF-Anhang an ein Richtextfeld namens "Body1" zu hängen. Der Faxserver hat dieses Feld ignoriert, aber den Anhang versendet. Der Notes Client zeigt ein leeres Bodyfeld und einen Anhang für das Dokument an. Damit war allen Seiten geholfen !

Gruß

André

saimän:
Hallo André,

klasse, super, deine Lösung hat so funktioniert :D
Vielen Dank.  ;D  ;D  ;D

Gruß Saimän

Navigation

[0] Themen-Index