MailItem.To Property with VBA not work

Status
Not open for further replies.
P

platuan

Member
Outlook version
Outlook 365 64 bit
Email Account
Exchange Server
Hello,
I'm using MailItem.To to show the email name of incoming email.

MailItem.To property (Outlook)​

However, if the incoming email has only 1 email address in To -> it works
If incoming email have many email address in To -> code not work

Incase incoming email have many email address in To, how I can show all email name by using Outlook property.
Thank you !!!
 
You need to get the recipients collection.

If you aren't on an exchange server, you don't need the x.500 stuff.

Code: 
 strRecpt = ""

Set Recipients = objMail.Recipients
  For i = Recipients.count To 1 Step -1
     recip$ = Recipients.item(i).Address
    
   ' To use only the alias from the x.500 address
   ' If InStr(1, LCase(recip), "/ou=") Then recip = Right(recip, Len(recip) - InStr(1, LCase(recip), "recipients") - 13)

' Use semicolon separator if there is more than 1 address
     If i = 1 Then
         strRecpt = recip
     Else
         strRecpt =  strRecpt & recip & "; "
     End If

  Next i
 
Diane Poremsky said:
You need to get the recipients collection.

If you aren't on an exchange server, you don't need the x.500 stuff.

Code: 
 strRecpt = ""

Set Recipients = objMail.Recipients
  For i = Recipients.count To 1 Step -1
     recip$ = Recipients.item(i).Address
   
   ' To use only the alias from the x.500 address
   ' If InStr(1, LCase(recip), "/ou=") Then recip = Right(recip, Len(recip) - InStr(1, LCase(recip), "recipients") - 13)

' Use semicolon separator if there is more than 1 address
     If i = 1 Then
         strRecpt = recip
     Else
         strRecpt =  strRecpt & recip & "; "
     End If

  Next i
Click to expand...
Thank you very much.
Sorry I'm a newbie in VBA.
I am trying below code and it is not working.
Can you show me what's wrong?

Code: 
Sub ShowMailItemTo(Item As Outlook.MailItem)

Dim objItem As Outlook.MailItem
Dim strRecpt As String
Dim recip As String
Dim Recipients As Recipient, i

strRecpt = ""
Set Recipients = objItem.Recipients
For i = Recipients.count To 1 Step -1
    recip$ = Recipients.item(i).Address
    If i = 1 Then
        strRecpt = recip
    Else
        strRecpt =  strRecpt & recip & "; "
    End If
Next i

MsgBox strRecpt

End Sub
 
Status
Not open for further replies.
< Adding a recipient's column to Sent folder in Outlook 2010 | Place cursor at opening, a user defined OL contact form >
Similar threads
Thread starter Title Forum Replies Date
JorgeDario ¿What property of mailitem can be used like primary key? Outlook VBA and Custom Forms 6
S Saved Property of MailItem is copied Outlook VBA and Custom Forms 1
M MailItem object has no property for when a reply was sent Outlook VBA and Custom Forms 3
M What is the recommendet way to read/write a user defined Field (Named Property) in the MailItem Obje Outlook VBA and Custom Forms 1
M What is the recommendet way to read/write a user defined Field (Named Property) in the MailItem Obje Outlook VBA and Custom Forms 5
Rob Can't save MailItem because the message changed in .pst file Outlook VBA and Custom Forms 0
G Event when creating task from mailitem Outlook VBA and Custom Forms 2
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
U Outbox Message Stuck after reading some MailItem Properties with VBA Outlook VBA and Custom Forms 1
oliv- Best practice for catching mailitem.events Outlook VBA and Custom Forms 0
oliv- How to select an mailitem in explorer with "show as conversation" Outlook VBA and Custom Forms 8
JorgeDario How to capture and save the text, when responding a MailItem? Outlook VBA and Custom Forms 3
JorgeDario how to check a MailItem has a digital signature (SMIME) with vba? Outlook VBA and Custom Forms 1
S Outlook VBA rule script to process both MailItem and MeetingItem Using Outlook 0
B right click outlook objects in OL2010 acts on current inbox mailitem Using Outlook 6
C MailItem Find method doesn't work Using Outlook 0
C MailItem.SaveAs not working Outlook VBA and Custom Forms 10
G RE:The signature is also inserted if you touch the MailItem. Outlook VBA and Custom Forms 1
B Add signature to MailItem Outlook VBA and Custom Forms 3
C How can I create a new MailItem inside a user folder? Outlook VBA and Custom Forms 4
S Create a new Outlook MailItem in an Outlook folder(not a draft) Outlook VBA and Custom Forms 2
A How to get OOM MailItem Raw data Outlook VBA and Custom Forms 2
S MailItem Find Method question Outlook VBA and Custom Forms 6
N Getting the attachments in MailItem Outlook VBA and Custom Forms 1
T How to get MailItem.Body without security warning in Outlook 2010 Outlook VBA and Custom Forms 2
S ->[O2007] Parsing each line of a MailItem HTMLBody? Outlook VBA and Custom Forms 2
T How to get Inspector or MailItem from wordEditor Outlook VBA and Custom Forms 6
A Select the position of an attached file in a HTML mailitem Outlook VBA and Custom Forms 1
B Insert information to MailItem Outlook VBA and Custom Forms 1
E Properties added to MailItem in ItemSend event visible to recipien Outlook VBA and Custom Forms 1
V Setting HTMLBody of new mailItem Outlook VBA and Custom Forms 1
V How to find mailitem in the inspector is a brand new one Outlook VBA and Custom Forms 2
M Activate "Add digital signature to this massage" on a MailItem? Outlook VBA and Custom Forms 1
K importing EML in MailItem Outlook VBA and Custom Forms 1
A mailitem Send issue Outlook VBA and Custom Forms 5
M Get email address from MailItem.To? Outlook VBA and Custom Forms 6
S UserProperties of MailItem object. Outlook VBA and Custom Forms 3
R How to capture a Mailitem Event Outlook VBA and Custom Forms 3
S get current position in message body of mailitem Outlook VBA and Custom Forms 8
S How to get RFC822 format message from the MailItem object. Outlook VBA and Custom Forms 4
J Toolbar button to process current mailitem Outlook VBA and Custom Forms 1
D MailItem from an RSS feed Outlook VBA and Custom Forms 2
J Outlook 2007 crashed when pushing send on a displayed mailitem Outlook VBA and Custom Forms 1
N Memory with MailItem.Send Outlook VBA and Custom Forms 1
P Adding a button in a mailitem Outlook VBA and Custom Forms 1
S Reading mailitem after mail is send give runtime error. Outlook VBA and Custom Forms 1
D Max. length of MSO MailItem.EntryID Outlook VBA and Custom Forms 6
R MailItem.Display() error Outlook VBA and Custom Forms 1
R Clone mailitem Outlook VBA and Custom Forms 5
R MailItem Outlook VBA and Custom Forms 2

Similar threads

Back
Top