Collecting mail address from GAB and adding to Outlook Task

Not open for further replies.


New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server
Hi All,

I am trying to create an automated Outlook (2013) task that requests an email address selection from Global Address List and then adds the selected address to the TO field under Assign Tasks.

See the current VBA code that works but does not add the email address to the To Field, Please can someone help me..

Many Thanks

___________________________________________________________________________ __________

Sub ConvertSelectedMailtoTask()
Dim objTask As Outlook.TaskItem
Dim objMail As Outlook.MailItem
Dim myDelegate As Outlook.Recipient
Dim olkApp As Outlook.Application, olkSes As Outlook.NameSpace, olkSND As Outlook.SelectNamesDialog

Set objTask = Application.CreateItem(olTaskItem)
Set objMail = Application.ActiveExplorer.Selection.Item(1)
'Set Myaddrlist = myNameSpace.AddressLists("Global Address List")
Set olkApp = GetObject(, "Outlook.Application")
Set olkSes = olkApp.Session
Set olkSND = olkSes.GetSelectNamesDialog
'Set myDelegate = MyItem.Recipients.Add()

CompanyName = InputBox("Please enter Company name, That this task is being created for.")

With olkSND
.AllowMultipleSelection = False
'.Recipients = olkSND.Recipients

.Recipients = olkSND.Recipients

'The selections the user makes will be in the olkSND.Recipients collection'

With objTask

.Subject = objMail.Subject & CompanyName
.StartDate = objMail.ReceivedTime
.DueDate = Date + 30.5 '3 days at noon
.ReminderSet = True
.ReminderTime = objTask.DueDate - 10.5
.Categories = "Customer Updates Required"
'.Recipients = olkSND.Recipients
.Importance = olImportanceHigh
.Body = objMail.Body
'Add the message as an attachment
.Attachments.Add objMail

End With

Set objTask = Nothing
Set objMail = Nothing
Set olkSND = Nothing
Set olkSes = Nothing
Set olkApp = Nothing

End With

End Sub
ok... you also forgot to assign it -
.Recipients.Add (sendTo)

sendTo comes from the address book:

With olkSND
.AllowMultipleSelection = False
sendTo = .Recipients(1).AddressEntry

you could use olkSND.Recipients(1).AddressEntry in recipient.add instead of sendto (but it's better to use variables)
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
V Collecting email from my domains and aggregating them in Hotmail Using accounts in Outlook 7
P Limited Support for 3rd Party Mail in new Outlook? Using Outlook 1
T Exchange Server - Mail Delay Stamping Exchange Server Administration 0
L Error when exporting Sent Mail to Excel Outlook VBA and Custom Forms 6
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
K How can I delete an e-mail from Outlook Using Outlook 1
L Help: set flag for sent mail to check if received an answer Outlook VBA and Custom Forms 2
A Macro Mail Alert Using Outlook 4
e_a_g_l_e_p_i MY Outlook 2021 changed the format of the shortcuts for mail, calendar etc. Using Outlook 10
Z Outlook 365 Automatically assign categories to incoming mail in a shared folder Round Robin Outlook VBA and Custom Forms 1
W Outlook 365 I am getting the "Either there is no default mail client" error when I try to send an email on excel Office 365 Using Outlook 1
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2
P What is your strategy for dealing with SPAM and Junk Mail? Using Outlook 1
C Code to move mail with certain attachment name? Does Not work Outlook VBA and Custom Forms 3
T 1:1 Datatransfer from incoming mail body to customs form body Outlook VBA and Custom Forms 0
O Mail rule issue Using Outlook 3
A manual rule sends mail to wrong folder Using Outlook 5
Aussie Outlook 365 Rule runs manually but returns the error code "an unexpected error has occurred" when incoming mail arrives Using Outlook 1
D ISOmacro to extract active mail senders name and email, CC, Subject line, and filename of attachments and import them into premade excel spread sheet Outlook VBA and Custom Forms 2
Witzker Outlook 2019 Macro to answer a mail with attachments Outlook VBA and Custom Forms 2
D Outlook 2003 Mail Fails Using Outlook 1
Cathy Rhone Mail merge error message Using Outlook 1
R Sent emails show iCloud mail account not the alias Using Outlook 2
D Advanced e-Mail search on from/to contact group only searches for first 20 contacts in group Using Outlook 0
P Print attachments automatically and move the mail to an existing folder called "Ted" Outlook VBA and Custom Forms 4
P Importing other e-mail accounts into Outlook Using Outlook 1
lcarpay Stay in the mail folder pane after ctrl-1 Using Outlook 1
O Exchange Sync period only (e.g. last years mail) Using Outlook 0
F Excel VBA to move mails for outlook 365 on secondary mail account Outlook VBA and Custom Forms 1
M Convertor for Outlook Express Mail Store (.dbx) to Outlook Mail Store (.pst) Using Outlook 0
T vba extract data from msg file as attachment file of mail message Outlook VBA and Custom Forms 1
J E-mail held in Outbox while Minimized Using Outlook 3
G Forward email body to other mail list directly from Exchange server Exchange Server Administration 1
T Outlook creates a copie of every mail I send Using accounts in Outlook 4
N Please advise code received new mail Using Outlook 0
M Outlook 2010 How could I globally redesign an outlook template form/region/inspector template used to display mail lists or an individual mails? Outlook VBA and Custom Forms 0
A How to stop user form from disapearing once mail window is closed? Outlook VBA and Custom Forms 0
M Outlook, send to > mail recipient - results in plain text email Using Outlook 1
R How to Sync *all* Google Workspace Mail Folders with Outlook 2019 (MS365) Using Outlook 3
S Outlook VBA How to adapt this code for using in a different Mail Inbox Outlook VBA and Custom Forms 0
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
S Outlook email to configure setup for each mail Outlook VBA and Custom Forms 1
L Correct E-Mail Pulling Wrong Mail Using Outlook 5
S Outlook mail adressing stops after first match in GAL Using Outlook 0
P Outlook 2013 All imported Mail Rules in error when imported into new profile Using Outlook 5
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
MrMayor SENT mail not reloading to top?? Using Outlook 4
Terry Sullivan Sender Field Displays My E-Mail Address, Not My Name Using Outlook 1
ThinkToday Calculate reply time of outlook mail Using Outlook 1

Similar threads