![]() To write the address list to a new message for easy reading, replace the Set objProp = to objMail.Save lines with the following: ![]() Set objProp = ("Recipient Email", olText, True) ![]() ' Use semicolon separator if there is more than 1 address ' If InStr(1, LCase(recip), "/ou=") Then recip = Right(recip, Len(recip) - InStr(1, LCase(recip), "recipients") - 13) ' To use only the alias from the x.500 address Set Selection = currentExplorer.Selection Set currentExplorer = Application.ActiveExplorer o=ExchangeLabs/ou=Exchange Administrative Group server addresses are the x.500 address (as seen in the example above), not the SMTP address, however, you can use the Right() function to keep just the alias. Note that when a message is sent to multiple people, all addresses will be entered in the field as one long string, as seen in this example.
0 Comments
Leave a Reply. |