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
field").
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
myDraftsFolder.Items.Item(lDraftItem).Send
End If
Next lDraftItem
'Clean-up
Set myDraftsFolder = Nothing
Set myNameSpace = Nothing
Set myOutlook = Nothing
End Sub
-------------------
QUESTION:
I need a Macro Code to accomplish STAGE-1 ALONE (Hope I can keep 2 Macros and I can run them one-by-one).