Domino 9 und frühere Versionen > ND6: Entwicklung

Attachment doppelt

<< < (2/2)

Glombi:
Ja, aber es steht doch schon im Feld "Attachment" als Anhang

Set object = rtitm.EmbedObject( EMBED_ATTACHMENT, "",itmSaveFile.Values(0))

und rtitm ist das Feld Attachment
Set rtitm = docMail.GetFirstItem("Attachment")

Ist es so gedacht, dass Du das aktuelle Dokument sendest oder willst Du ein neues temporäres Dokument erstellen und dieses senden?

Andreas

bml:
eigentlich will schon nur das "original Dokument" senden - kein Temp Dok

meinst du diese Zeile ist zu viel ??

   Set object= rtitm.EmbedObject(EMBED_OBJECT, "",itmSaveFile.Values(0))

Glombi:
Es sollte so aussehen:

Function CreateEmail(uidoc As NotesUiDocument) As Integer
Dim ws As  NotesUIWorkspace
Dim docMail As NotesDocument
Dim rtitm As NotesRichTextItem
Dim itmSubject As NotesItem
Dim itmrecipients As NotesItem
Dim itmSaveFile As NotesItem
Dim object As NotesEmbeddedObject  

   '--> Funktion wird auf Failure gesetzt
   CreateEmail = False
   
   '--> Instanzierung der benutzten NotesObjekte
   Set docMail = uidoc.Document
   Set rtitm = New NotesRichTextItem(docMail,"Body")
   Set itmSubject = docMail.GetFirstItem("Betreff")
   Set itmRecipients = docMail.GetFirstItem("SendTo")
   Set rtitm = docMail.GetFirstItem("Body")
   Set itmSaveFile = docMail.GetFirstItem("SaveFile")
   Set object = docMail.GetAttachment( itmSaveFile.Values(0))
   Set object= rtitm.EmbedObject(EMBED_OBJECT, "",itmSaveFile.Values(0))
    '<--
   
   '--> Überprüfung, ob das verwendete Feld vom Typ ein RichTextFeld ist.
   '      Wenn das Feld ein RichTextFeld ist, wird versucht die ausgewählte Datei anzuhängen.
   If ( rtitm.Type = RICHTEXT ) Then
      Set object = rtitm.EmbedObject( EMBED_ATTACHMENT, "",itmSaveFile.Values(0))
      If ( object Is Nothing ) Then
         Messagebox( "Keine Datei ausgewählt." )
         Exit Function
      End If
   End If  
   '<--  
   
   '--> Email wird zusammengesetzt  
   docMail.Form = "Memo" '--> Dokumentenart
   docMail.Subject = itmSubject.Values(0) '--> Titel oder Betreff der Email
   docMail.SentTo = itmRecipients.Values(0) '--> Empfänger
   '<--
   
   '--> Mail wird versendet
   Call docMail.Send(False)
   '--> Ausgabe: Nach versenden des Dokuments
   Print("Email wurde an Empfänger versendet")
   '<--
   
   '--> Dokument wird gesichert
   Call docMail.Save(True,False)
   '<--
   
   '--> Funktion wird auf Successfull gesetzt
   CreateEmail = True
   
   
End Function

Navigation

[0] Themen-Index

[*] Vorherige Sete