Domino 9 und frühere Versionen > ND6: Entwicklung

Absenderkennung ändern und Richtext bzw. Anhänge mitschicken

<< < (4/4)

Barbara:
Hallo,
hatte eben erst so was ähnliches. nach meinem Verständnis brauchst du Richtextitems für die Attachements. Hast aber dein Item nur als Notesitem deklariert. Probier' mal

'Main Document
   Dim dbA As New NotesDatabase ( "SERVER1/XXX/YY", "IT\devmailbox.nsf" )
   Dim viewA As NotesView
   Dim docA As NotesDocument
   Set viewA = dbA.GetView( "Unsend Mails" )
   Set docA = viewA.GetFirstDocument
   
   'Sending Document
   Dim s As New notessession
   Dim dbB As NotesDatabase
   Dim Mailbox As NotesDatabase
   Dim docB As NotesDocument
   Dim item As Notesrichtextitem
   Set dbB = s.CurrentDatabase
   Set Mailbox = s.GetDatabase(dbB.Server, "mail.box")
   Set docB = New NotesDocument(Mailbox)
   Set item = docA.GetFirstItem("Body")   
   
   ' Values for sending
   docB.SendTo =    docA.GetItemValue( "SendTo" )   
   docB.Recipients =    docA.GetItemValue( "SendTo" )   
   docB.From =    "CN=Dev Mailbox/O=XXX/C=YY"
   docB.form =    "Memo"
   docB.Subject =    docA.GetItemValue( "Subject" )
                'Call docB.CopyItem(item, "Body")
                Set Body=New NotesRichTextItem( docB,"Body" )   
                Call Body.AppendRTItem(item )
   
   ' Save and close Docs
   Call docA.ReplaceItemValue ("myMailStatus", "is send")
   Call docA.save(True, False)
   Call docB.save(True, False)

Gruß
Barbara

Barbara:
geht auch:

If item.Type= RICHTEXT Then   
         Call item.CopyItemToDocument( docB, "Body" )
      End If

mophat:
@Barbara

Danke, Bilder werden jetzt als Anhang mitgesendet nur leider nicht andere Dateitypen wie PDF, XLS usw???

In der Nachricht steht dann im Outlook "(See attached file: Test Datei.xls)", nur der Anhang ist nicht da und es ist auch kein Base64 in Header enthalten.

 :-:

Barbara:
und wenn du den Anhang löst, um ihn anschließend in docB wieder einzufügen?
Schau mal in der Notesembeddedobject class nach. Muss jetzt leider weg.

Barbara

Navigation

[0] Themen-Index

[*] Vorherige Sete