Domino 9 und frühere Versionen > ND7: Entwicklung

Warum wird hier ein Attachment mitgemailt?!

<< < (2/2)

m3:
1) Objekt-Recycling ist nicht das, was Du tun willst.
Aus Deinem Code:

--- Code: ---Set doc = view.GetFirstDocument
...
doc.Form = "Memo"
doc.SendTo =ret(x)
doc.Subject = docmailsubject(0)
doc.Body = docmailbody(0)
Call doc.Send( False )'Mail wird verschickt
...
Set doc = view.GetNextDocument( doc )

--- Ende Code ---
Du nimmst das Dokument so, wie Du es gefunden hast, verpasst Ihm noch ein paar zusätzliche Felder und verschickst es.
Da darfst Du Dich nicht wundern, wenn die Attachments mitgeschickt werden. Die können in $FILE Items stehen, im Body, ....
Und nein, "doc.Body = docmailbody(0)" überschreibt NICHT die Inhalte des BODY Feldes, sondern hängt den Inhalt von docmailbody(0) an doc.Body an. Siehe dazu den Abschnitt "Extended class syntax" im Designer-Hilfe Dokument zur "AppendItemValue method".

Sauber wird so etwas gelöst, indem man a) einen neues Dokument zum Mailen erstellt und b) die Werte, die gemailt werden sollen über GetItemValue() aus dem Ursprungsdokument holt.

2) Warum verwendest Du mehrere "normale" Dokumente anstelle eines Profildokumentes?

3) Datumsvergleich

--- Code: ---docdate = doc.GetItemValue(docvergleichsfeld(0))
docdatumwert = Today-docdate(0)
vergleichswert = docvergleichswert(0) -docdatumwert
--- Ende Code ---
Für sowas haben uns die lieben Leute bei Iris/Lotus/IBM notesDateTime.TimeDifference() gegeben.

ivan_hunkeler:
ach soo... sorry ich bin ein ziemlicher Anfänger auf dem Gebiet. Ok ich versuche es  mit einem neuen Dokument...
vielen dank für die schnelle Antwort

ivan_hunkeler:

--- Code: --- '******************************************Mail erstellen*******************************

'Dokument speichern, um die Felder sichtbar zu machen
Set uidoc = workspace.CurrentDocument
Call uidoc.Save
Set doc = uidoc.document
Set Database = session.CurrentDatabase

'Auslesen, welche Pers. das Dokument erstellt hat
sendas = uidoc.FieldGetText( "mailCreator" )

' Neues Mail machen in Servermailbox
Set maildoc = New Notesdocument(Database)
maildoc.Form = "Memo"
maildoc.From = sendas
maildoc.SendFrom = item

item =ret(x)
Call maildoc.ReplaceItemValue( "SendTo", item )
Call maildoc.ReplaceItemValue( "recipients", item )
item_sub = docmailsubject(0)
Call maildoc.ReplaceItemValue( "Subject", item_sub )
Call maildoc.Save(True, False, False)


Call maildoc.Save(True, False, False)
Call maildoc.Send(False )
Call uidoc.Close
'*******************************************Mail erstellen*********************************
--- Ende Code ---


soo das wars... 1000dank an m3 ;-) das wusste ich leider nicht... vielen dank für dein Verständniss, dass hier auch Anfänger fragen stellen, was für dich/euch halt sonnenklar ist...

vielen vielen Dank

greeeeez ivan

Navigation

[0] Themen-Index

[*] Vorherige Sete