A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Reload this Page Redemption to return the DisplayName or SenderName
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Redemption to return the DisplayName or SenderName


« Export Outlook 2003 Email Message To Access 2003 Table | Voting Response Report »

 
 
Thread Tools Search this Thread Display Modes
  #1  
Old May 27th 06, 12:07 PM posted to microsoft.public.outlook.program_vba
bobdydd
external usenet poster
  
Posts: 17
Default Redemption to return the DisplayName or SenderName
Hi All

I am using the following code within Microsoft Access 2000 using
Redemption RDO and I am trying to get the following......They all work
except one........can anyone see why.

SenderEMail ' works OK
Creation_Time ' works OK
Body ' works OK
Subject ' works OK
SenderName ' DOES NOT WORK returns some obscure #

Can anyone see why



'Make declarations ans settings
' Keys ***********************
' MailItem1 = The Inbox itself
' MailItem2 = The First Item in the Inbox
Dim utils, _
MailItem1, _
MailItem2, _
Pr_Received_By_Name, Received_By_Name, _
PrSenderEmailAddress, SenderEMail, _
Pr_Creation_Time, Creation_Time, _
Pr_Subject, Subject, _
PR_SENDER_NAME, SenderName, _
Pr_Body, Body
Set utils = CreateObject("Redemption.MAPIUtils")
Set MailItem1 = Outlook.Session.GetDefaultFolder(olFolderInbox)
'Set the Inbox itself
'************************************************* ****************************************


'fetch the email in the inbox's details
Set MailItem2 =
Outlook.Session.GetDefaultFolder(olFolderInbox).It ems(1)
PrSenderEmailAddress = &HC1F001E
SenderEMail = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
PrSenderEmailAddress)
'************************************************* ****
Pr_Creation_Time = &H30070040
Creation_Time = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
Pr_Creation_Time)
'************************************************* ****
Pr_Body = &H1000001E
Body = utils.HrGetOneProp(MailItem2.MAPIOBJECT, Pr_Body)
'************************************************* ****
Pr_Subject = &H37001E
Subject = utils.HrGetOneProp(MailItem2.MAPIOBJECT, Pr_Subject)
'************************************************* ****
PR_SENDER_NAME = &H39FE001E
SenderName = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
PR_SENDER_NAME)

Me.txtFrom = SenderEMail ' Enters "FROM" Field
Me.txtReceived = Creation_Time 'Enters the DATE SENT field
Me.txtContents = Body ' Enters "BODY" Field
Me.txtSubject = Subject ' Enters "SUBJECT" Field
Me.txtEmailDisplayName = PR_SENDER_NAME
  #2  
Old May 27th 06, 06:29 PM posted to microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
  
Posts: 5,848
Default Redemption to return the DisplayName or SenderName
Me.txtEmailDisplayName = PR_SENDER_NAME

You're setting it equal to &H39FE001E.

If you're getting an Outlook session as Outlook.Session you really should
get a NameSpace object and Logon to it before using Session. Or just use a
NameSpace object. Also, once you have a NameSpace object you should do:

utils.MAPIOBJECT = oNameSpace.MAPIOBJECT

and when your code is finished don't forget to do:

utils.Cleanup

before setting it to Nothing.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"bobdydd" wrote in message
ups.com...
Hi All

I am using the following code within Microsoft Access 2000 using
Redemption RDO and I am trying to get the following......They all work
except one........can anyone see why.

SenderEMail ' works OK
Creation_Time ' works OK
Body ' works OK
Subject ' works OK
SenderName ' DOES NOT WORK returns some obscure #

Can anyone see why



'Make declarations ans settings
' Keys ***********************
' MailItem1 = The Inbox itself
' MailItem2 = The First Item in the Inbox
Dim utils, _
MailItem1, _
MailItem2, _
Pr_Received_By_Name, Received_By_Name, _
PrSenderEmailAddress, SenderEMail, _
Pr_Creation_Time, Creation_Time, _
Pr_Subject, Subject, _
PR_SENDER_NAME, SenderName, _
Pr_Body, Body
Set utils = CreateObject("Redemption.MAPIUtils")
Set MailItem1 = Outlook.Session.GetDefaultFolder(olFolderInbox)
'Set the Inbox itself
'************************************************* ****************************************


'fetch the email in the inbox's details
Set MailItem2 =
Outlook.Session.GetDefaultFolder(olFolderInbox).It ems(1)
PrSenderEmailAddress = &HC1F001E
SenderEMail = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
PrSenderEmailAddress)
'************************************************* ****
Pr_Creation_Time = &H30070040
Creation_Time = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
Pr_Creation_Time)
'************************************************* ****
Pr_Body = &H1000001E
Body = utils.HrGetOneProp(MailItem2.MAPIOBJECT, Pr_Body)
'************************************************* ****
Pr_Subject = &H37001E
Subject = utils.HrGetOneProp(MailItem2.MAPIOBJECT, Pr_Subject)
'************************************************* ****
PR_SENDER_NAME = &H39FE001E
SenderName = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
PR_SENDER_NAME)

Me.txtFrom = SenderEMail ' Enters "FROM" Field
Me.txtReceived = Creation_Time 'Enters the DATE SENT field
Me.txtContents = Body ' Enters "BODY" Field
Me.txtSubject = Subject ' Enters "SUBJECT" Field
Me.txtEmailDisplayName = PR_SENDER_NAME
  #3  
Old May 30th 06, 07:33 PM posted to microsoft.public.outlook.program_vba
Dmitry Streblechenko
external usenet poster
  
Posts: 2,116
Default Redemption to return the DisplayName or SenderName
What is that #? Is the property is not found, Redemption returns a variant
of type error; the error number will have the corresponding MAPI error code
(most likely MAPI_E_NOT_FOUND). That's probably what you are seeing.
Look at that particular message with MFCMAPI or OutlookSpy (click Imessage)
and make sure PR_SENDER_NAME is present. Also do check the type of the value
returned by HrGetOneProp.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"bobdydd" wrote in message
ups.com...
Hi All

I am using the following code within Microsoft Access 2000 using
Redemption RDO and I am trying to get the following......They all work
except one........can anyone see why.

SenderEMail ' works OK
Creation_Time ' works OK
Body ' works OK
Subject ' works OK
SenderName ' DOES NOT WORK returns some obscure #

Can anyone see why



'Make declarations ans settings
' Keys ***********************
' MailItem1 = The Inbox itself
' MailItem2 = The First Item in the Inbox
Dim utils, _
MailItem1, _
MailItem2, _
Pr_Received_By_Name, Received_By_Name, _
PrSenderEmailAddress, SenderEMail, _
Pr_Creation_Time, Creation_Time, _
Pr_Subject, Subject, _
PR_SENDER_NAME, SenderName, _
Pr_Body, Body
Set utils = CreateObject("Redemption.MAPIUtils")
Set MailItem1 = Outlook.Session.GetDefaultFolder(olFolderInbox)
'Set the Inbox itself
'************************************************* ****************************************


'fetch the email in the inbox's details
Set MailItem2 =
Outlook.Session.GetDefaultFolder(olFolderInbox).It ems(1)
PrSenderEmailAddress = &HC1F001E
SenderEMail = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
PrSenderEmailAddress)
'************************************************* ****
Pr_Creation_Time = &H30070040
Creation_Time = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
Pr_Creation_Time)
'************************************************* ****
Pr_Body = &H1000001E
Body = utils.HrGetOneProp(MailItem2.MAPIOBJECT, Pr_Body)
'************************************************* ****
Pr_Subject = &H37001E
Subject = utils.HrGetOneProp(MailItem2.MAPIOBJECT, Pr_Subject)
'************************************************* ****
PR_SENDER_NAME = &H39FE001E
SenderName = utils.HrGetOneProp(MailItem2.MAPIOBJECT,
PR_SENDER_NAME)

Me.txtFrom = SenderEMail ' Enters "FROM" Field
Me.txtReceived = Creation_Time 'Enters the DATE SENT field
Me.txtContents = Body ' Enters "BODY" Field
Me.txtSubject = Subject ' Enters "SUBJECT" Field
Me.txtEmailDisplayName = PR_SENDER_NAME
 



« Previous Thread | Next Thread »

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Return to view of monthly calendar after using add/remove holidays MacBunny Outlook - Calandaring 4 September 17th 06 02:44 AM
messaging interface has return unknown error Amadou Outlook - Calandaring 1 May 26th 06 06:03 PM
SaveAsFile - save as subject line instead of DisplayName iamjbunni Outlook and VBA 1 April 30th 06 08:54 AM
How to change read only SenderName and SenderEmailAddress [email protected] Outlook - General Queries 3 April 19th 06 07:22 PM
return values Reg Outlook - General Queries 3 February 27th 06 11:24 AM


All times are GMT +1. The time now is 09:03 AM.

Feed Icon - Contact Us - OutlookBanter Home - FAQ - Links - Privacy Statement - Top

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.