Sending EMail without the Users EMail Adress

HCL Domino Domino Forum
1

Hi, we have a Notes DB (Mailbox) witch are customized with two additional fields:

“ReplyTo” and “Principal”

Now, if i send from this mailbox a mail to a customer then appears on the Outlook Client this: “myname@mydomain.com has send this mail for mailboxname@mydomain.com”

How can i disable that only the ReplyTo and Principal is used for outside mails form this database?

I need only “myname@mydomain.com”.

Thanks in advance for any help.

Volkan Senguel

2

Subject: Sending EMail without the Users EMail Adress…

The mail router will over-ride the sendto field with the users mail address. Something that I did based on a code snipet that someone else suggested (can’t remember who). I created an agent that formated a Memo form and set teh subject and the sendto directly then it wrote teh document directly to the Mail.Box DB. This could be dangerous because the router task does a lot of verification etc. But I know that it works if everything is correct, so your code must do all of the checking. Here is the code that I used, the scenario is that I have a mail-in Db and I want to move the document to my personal mail DB but retain the original sender etc. Once it arrives in my mail Db it looks as if it was sent to me origanally. You may have to play with it some.

Sub Click(Source As Button)

Dim session As New NotesSession	

Dim Db As NotesDataBase

Dim Collection As NotesDocumentCollection



Set db = session.CurrentDatabase



Dim newMailDoc As NotesDocument

Dim thisNote As NotesDocument

Dim recipAddress As String

Dim servername As String



servername = "CN=Your Server/O=Your Org"    ' <<< Enter your mail server name here



Set collection = db.UnprocessedDocuments	

Set thisNote = collection.GetFirstDocument



recipAddress = Session.UserName



While Not thisNote Is Nothing		

	

	Dim mailbox As NotesDatabase

	Set mailbox = New NotesDatabase(servername, "mail.box")

	

	Set newMailDoc = mailbox.CreateDocument()

	Call thisNote.CopyAllItems(newMailDoc, True)	

	newMailDoc.Recipients = recipAddress

	newMailDoc.SendTo = recipAddress

	Call newMailDoc.RemoveItem("SMTPOriginator")

	If Not thisNote.Form(0) = "Return Receipt" Then

		Call newMailDoc.RemoveItem("IntendedRecipient")

	End If	

	

	Call newMailDoc.Save(True, True)		

	Set thisNote = collection.GetNextDocument(thisNote)

Wend

End Sub

3

Subject: RE: Sending EMail without the Users EMail Adress…

I’ve tryed this but without success.

Do you have a sample DB or a working code for me?

Or is there a another way to do this?

// Commercial Product?

thanks

Volkan