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.

'Setup Outlook

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

'Send Item


End If
Next lDraftItem


Set myDraftsFolder = Nothing
Set myNameSpace = Nothing
Set myOutlook = Nothing

End Sub


I need a Macro Code to accomplish STAGE-1 ALONE (Hope I can keep 2 Macros and I can run them one-by-one).