Adding Sent email address To personal address book

HCL Domino Domino Forum
1

HI,Anyone knows how to add email address of the user to whom you have sent a mail in the personal address book.

From Inbox you can add the email address of the received mail sender in the personal address book.In the same way I want to add email address of the user to whom I have sent a mail.The same email address has to be saved in the personal address book.

Any help will be highly appreciated.

Thanks in advance.

Regards

Sameer Kulkarni

2

Subject: Adding Sent email address To personal address book

Hello,

you can find the code to do that in the shared Action ‘Add Sender To Address Book’. With some modifications you can receive what you want.

Regards,

Roland

3

Subject: RE: Adding Sent email address To personal address book

Three years later I get a request from above to do the same…

Worked out the fix is quite simple (as follows):

Edit the (AddSendertoAddressBook) agent and look at the Initialize section. About halfway down you will see the ProcessCandidates function.

Use the code I have copied below as a guide to the changes I made ::

Function ProcessCandidates()

Dim bSent As Boolean  '// ***New line

Set Me.m_SenderNameTable = New NotesCSParticipantTable(17)

Set Me.m_noteCandidate = Me.m_collection.getfirstdocument

	m_InternetAddress = Me.m_noteCandidate.getitemvalue("INetFrom")

	

	While Not Me.m_noteCandidate Is Nothing

		

If Me.m_noteCandidate.DeliveredDate(0) = "" And Me.m_noteCandidate.PostedDate(0)<>"" Then

			bSent = True

			m_InternetAddress = Me.m_noteCandidate.getitemvalue("InetSendTo")

Else

bSent = False

End If

If Me.m_noteCandidate.hasitem(“From”) Or bSent Then '// *** added bSent

If bSent Then

Me.m_strCurrentNoteValue = Me.m_noteCandidate.GetItemValue(“SendTo”)(0)

			Else					

				Me.m_strCurrentNoteValue	= Me.m_noteCandidate.GetItemValue("From")(0)

			End If

Hope that helps someone else…

Mark.