Fehler 4349 beim Senden von Mail aus Lotusscript

codec · 17. Februar 2009

Hallo Zusammen,

wenn ich über den folgenden Code eine Mail per Button aus einer Anwendung versende, dann funktioniert es prima, wenn der Empfänger nur im allgemeinen Adressbuch ist. Wenn er aber auch im lokalen Adressbuch des Users ist erhalte ich die Fehlernummer 4349 (NOTES_ERR_CANT_SELF_ASSIMILATE) im "docMail.send(False)"
Wie kann ich dieses Problem umgehen???

Code

Set docMail = New NotesDocument( dbMailBox )	
	Set body = New NotesRichTextItem( docMail, "Body" )	

	docMail.Form ="Memo"
	docMail.subject = subject	
	docMail.SendTo = sendto
	docMail.From = who
	docMail.Principal = who
	docMail.PostedDate = Now
	docMail.ReplaceItemValue("$AssistMail","1").IsSummary = True 

	Call docMail.Save(True,True)
	Call docMail.send (False)


	Exit Sub

Alles anzeigen

RockWilder · 17. Februar 2009

Warum dein Agent unter die Borgs gegangen ist, kann ich dir nicht sagen. Evtl. hilfts aber schon, wenn du die Domain an den Empfängernamen dran hängst (siehe KB-Artikel 1153854).

codec · 17. Februar 2009

Super Danke,

ich habe jetzt den folgenden Part "On Error" eingebaut:

Code

control_error:
	Print "Error: "+Cstr(Err)+" Line: "+Cstr(Erl)
	If Err = 4294 Then
		Msgbox "Error sending mail to:" & sendto,  0+16,"Warning."
		Print Cstr(Erl)+" "+Err
	Else
		Set namesdb= session.getdatabase(db.server, "names.nsf")
		Set Persondoc= namesdb.getview("($Users)").getdocumentbykey(docmail.SendTo(0))
		docMail.SendTo = Persondoc.fullname(0) & "@" & Persondoc.MailDomain(0)
		Call docMail.Send(True)
		Resume Next 
	'	Msgbox "Error sending mail",  0+16,"Warning."     
	'	Print Cstr(Erl)+" "+Err
	End If
	Print Cstr(Erl)+" "+Err
	Exit Sub

Alles anzeigen

und schon klappt es...

Danke

Norbert

koehlerbv · 17. Februar 2009

Zitat

codec schrieb:
und schon klappt es...

Es hat bei Deinen Tests geklappt. Es reicht schon, wenn Du Dir allein Mühe gibst, den Code auszuhebeln (Usern und Admins fällt da noch mehr ein), und Du wirst sehen, dass die Ausnahmen von Deiner berücksichtigten Regel noch nicht einmal konstruiert sind.

Hinzu kommt, dass spätestens ab R8 auf dem Domino keine Datenbank namens NAMES.NSF mehr erwartet werden darf.

Bernhard

codec · 18. Februar 2009

Zitat

Hinzu kommt, dass spätestens ab R8 auf dem Domino keine Datenbank namens NAMES.NSF mehr erwartet werden darf.

So wie ich das hier sehe, wird es außer Lotus Notes 6.5.5 in diesem Laden hier keine neuere Version mehr geben.
Hier soll tatsächlich Scalix eingeführt werden...
Bis dahin wird der Workaround schon noch halten...

:undweg:

Norbert

Teilen