Using Outlook 2010, I would like to send Job Messages Email to All the Candidates who already sent their resumes to us by email.
STAGE-1: The way I would like to do is I'll COMPOSE a NEW EMAIL, PASTE EMAIL IDs (say 25 email IDs copied from 25 resumes) into the "To field" of the Message.
Once I clicked the "Send" Button, it should keep 25 Individual Email Messages in the "Draft Folder" (where as, every email message will have ONLY ONE email ID in the "To
STAGE-2: Sending all the 25 Messages from "Draft Folder"; for which the following Macro works well.
Public Sub SendDrafts()-------------------
Dim lDraftItem As Long
Dim myOutlook As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolders As Outlook.Folders
Dim myDraftsFolder As Outlook.MAPIFolder
'Send all items in the "Drafts" folder that have a "To" address filled in.
Set myOutlook = Outlook.Application
Set myNameSpace = myOutlook.GetNamespace("MAPI")
Set myFolders = myNameSpace.Folders
'Set Draft Folder.
Set myDraftsFolder = myFolders("SC").Folders("Drafts")
'Loop through all Draft Items
For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1
'Check for "To" address and only send if "To" is filled in.
If Len(Trim(myDraftsFolder.Items.Item(lDraftItem).To)) > 0 Then
Set myDraftsFolder = Nothing
Set myNameSpace = Nothing
Set myOutlook = Nothing
I need a Macro Code to accomplish STAGE-1 ALONE (Hope I can keep 2 Macros and I can run them one-by-one).