Email For Selected Contacts

Status
Not open for further replies.
L

LMS

Senior Member
Outlook version
Email Account
Exchange Server
One more important question!!!! Given all you have shown me and what I have updated, and now have the code that does things for the selected contacts in different areas. And in a number of folder I don't need to create a distribution list as can change each day. So I created the following code that creates an email for all contacts selected but it only uses the email of the first selected contact....so what can we change quickly so it adds the email address per each selected contact to the email of the selected contacts etc.. This would be great as well!!! Sub EmailTest()
Dim objApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim objItem As Object

Set oContact = GetCurrentItem()
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.Selection

For Each objItem In objSelection


Set objMsg = Application.CreateItemFromTemplate("C:\Users\Name\AppData\Roaming\Microsoft\Templates\E-mailForm.oft")
With objMsg
.To = oContact.Email1Address
objMsg.Display
End With

Next
Set objMsg = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing

End Sub
 
I just found the way to do this where I select a list of contacts, and it creates an email to each one.....and you can have it displayed or sent as you will see the options below as well.Sub EmailTest1()
Dim objApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim objItem As Object

Set oContact = objItem
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.Selection

For Each objItem In objSelection


Set objMsg = Application.CreateItemFromTemplate("C:\Users\Name\AppData\Roaming\Microsoft\Templates\E-mailForm.oft")
With objMsg
.To = objItem.Email1Address

'objMsg.Send
objMsg.Display
End With

Next
Set objMsg = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing

End Sub
 
Is there a way to change the code above so when I select the contacts, it runs the script that is in the contact that is named Sub btntasks_click and the name of the commandbutton in the contact is btntasks?
 
To All: This is the code I worked thru where I used the script code from the contact form to create a macro in a module, that when I select a list of contacts, it creates a task to each one based on the date in field of each contact: Sub Group_Create_Task()
Dim objApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim objItem As Object
Dim remoteObj
Dim StartDate
Dim DueDate

Dim myItem

Set oContact = objItem
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objSelection = objApp.ActiveExplorer.Selection

For Each objItem In objSelection

Set myItem = Application.CreateItemFromTemplate("C:\Users\Name\AppData\Roaming\Microsoft\Templates\Task Follow-Up.oft")

myItem.Display

StartDate = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl4").value

DueDate = objItem.GetInspector.ModifiedFormPages("General").Controls("OlkDateControl3").value

myItem.StartDate = StartDate

myItem.DueDate = DueDate

myItem.Links.Add objItem
Next
Set objMsg = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing

End Sub
 
Status
Not open for further replies.
< Adding text to forwarding rules in Outlook 2010 | Outlook 2013 Phone Number Format >
Similar threads
Thread starter Title Forum Replies Date
G Autocomplete adds suspicious "@unknown.email" to selected contacts Using Outlook 1
P Is it possible to write a macro to email to all addresses of selected contacts? Using Outlook 1
L Hide Selected Email Address from Address Book Using Outlook 5
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 2
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
Bering Forward selected email without the original email appended Outlook VBA and Custom Forms 0
R VBA Code to permanently delete selected email Outlook VBA and Custom Forms 10
O On click,I want to change subject line of selected mail and then reply to particular email and move Using Outlook 3
Diane Poremsky Save Selected Email Message as .msg File Using Outlook 11
M Save selected email message as .msg file (with user to choose folder location) Outlook VBA and Custom Forms 14
D Trigger macro to run when selected email is opened Using Outlook 3
T What is the best way of using the Classic Outlook client to change my email address? Using Outlook 4
T Creating a second email account on an Outlook client Using Outlook 2
J column with actual email address in Outlook Classic Using Outlook 2
S Not receving all email since converting from Outlook 2007 to Outlook Classic Using Outlook 3
Rupert Dragwater Outlook 365 taking too long to synchronize each time email is being checked Using Outlook 17
D Request help with a macro for forwarding email Outlook VBA and Custom Forms 7
e_a_g_l_e_p_i Need help updating email in Outlook 2021 Using Outlook 10
N Why does Outlook keeping adding to the email address I have in my notes portion of a contact? Using Outlook 2
P SPAM message about Comcast email migration to Yahoo Using Outlook 1
P anything new on the supposed shutdown of comcast.net email? Using Outlook 6
S Is there an add-in to PDF entire folders of email with Microsoft 365? Using Outlook 4
W frustrating trying to change email password Using Outlook 5
R File not found when sending email with attached pdf file Using Outlook 2
U Trouble sending large files to a email group but can to the individuals in that group Using Outlook 8
P Xfinity/Comcast email service stopping sometime in 2025 - warning Using Outlook 6
O Two identical email accounts in Offline Global Address List Using Outlook 2
H Spam email in Gmail not visible in Outlook Using Outlook 3
J Renegade spam URL line displayed in old local Outlook 365 email title Using Outlook 3
Y QQ on Scheduled Delivery of an Email Using Outlook 0
T Replace Text in Email Subject Outlook VBA and Custom Forms 3
Rupert Dragwater Cannot reestablish gmail (email address) account in Outlook 365 Using Outlook 11
M Outlook 365 adding standard message in body of template email Outlook VBA and Custom Forms 3
E Create Rule to Forward Email if Subject Begins With Using Outlook 2
V iCloud For Windows v15.x - Missing Email Features ? Using Outlook 4
M Thunderbird email client - I wonder Using Outlook 1
D Outlook Desktop App Email Software Using Outlook 0
P Email and calendar entry text now shifts right about 3 tabs worth of space Using Outlook 1
J Outlook macro to run before email is being send Outlook VBA and Custom Forms 3
T Outlook 2010 Creating a email 'Group' in OL 2010 Using Outlook 2
D Send email from Outlook Alias using Mac? Using Outlook 7
T How to set Default FONT for Email composing ? Using Outlook 0
H Finding text in open email Outlook VBA and Custom Forms 12
T Why do Outlook Desktop 2021 tasks from my wife's email show up in my task pane? Using Outlook 2
A Opening a link from an email automatically Outlook VBA and Custom Forms 0
D Outlook 2021 New email reminder Using Outlook.com accounts in Outlook 1
Rupert Dragwater How do I remove an email ending with @gmail.com Using Outlook 4

Similar threads

Back
Top