>Hi All,
>
>How can I use COM automation to get the users primary email address from his Outlook application? Thanks.

I wrote this code long time ago, but I think I replaced for something else later, but I forgot... Anyways, as you are asking for Outlook... it needs redemption in order to avoid the security check from Outlook, if you are using other way to by pass it (like YesNo) then you can remove the redemption related code.

? getSenderEMail(GetEnv("USERNAME"))

function getSenderEMail(tcSender as String) as Object
	local loOF, loMailItem, loOutlook, loItem, lcEMailAddress, loException, lcLastError
	
	loMailItem	= CreateObject("Redemption.SafeMailItem")
	loOutlook	= Createobject('Outlook.Application')
	loItem		= loOutlook.CreateItem(0)
	loMailItem.Item	= loItem
	lcEMailAddress	= ''
	try
		loMailItem.Recipients.Add(tcSender)
		if loMailItem.Recipients(1).Resolve()
			with loMailItem.Recipients(1).AddressEntry
				lcEMailAddress	= .Name + ' <' + .SMTPAddress + '>'
			endwith
		else
			* Unable to resolve
		endif
	catch to loException
		lcLastError	= Proper(This.Class) + " has encountered a problem." + Chr(13) ;
						+ "Error Number: " + Transform(loException.ErrorNo) + Chr(13) ;
						+ "Module: " + 'getSenderInfo' + Chr(13) ;
						+ "Line: " + Alltrim(Str(loException.LineNo)) + Chr(13) ;
						+ "Description: " + laError[2]

		MessageBox(lcLastError)
	endtry
	return lcEMailAddress
endfunc