Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: CLI_Andreas_Schmidt am 05.04.04 - 11:03:19

Titel: Mail mit Attachement
Beitrag von: CLI_Andreas_Schmidt am 05.04.04 - 11:03:19

Hi to all,

ich möchte ein Email senden mit Attachment.

Ich habe ein Dokument in dem 3 Richtext Felder enthalten sind. Jetzt will ich im Backend ein Dokument zusammenbauen und aus bestimmten richtext-Feldern die Anhänge mit senden.

Wie hänge ich jetzt dem Backend-Doc die Attachments an ?

so wie rtitem.appendtext....

es müsste also sowas sein wie... rtitem.appendattachment("richtextfeld)

Gibt's da sowas oder geht es anders ?

Dank für die Hilfe im Voraus


Andreas

Titel: Re:Mail mit Attachement
Beitrag von: klaussal am 05.04.04 - 11:06:41

... aieh mal unter "appendrtitem" in der hilfe nach.. ;)


1.   This script takes the Body item on document B and appends it to the end of the Body item on document A. The Body item on document B is deleted using the Remove method defined in NotesItem.
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
'...set values of docA and docB...
Set rtitemA = docA.GetFirstItem( "Body" )
Set rtitemB = docB.GetFirstItem( "Body" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
  Call rtitemA.AppendRTItem( rtitemB )
  Call rtitemB.Remove
  Call docA.Save( False, True )
  Call docB.Save( False, True )
End If

Titel: Re:Mail mit Attachement
Beitrag von: CLI_Andreas_Schmidt am 05.04.04 - 11:12:35

Läuft,

danke Dir.

Andreas.