Thread: Auto send messages issue

I am trying to run a macro on Outlook to send a lot of messages to different parties. The macro does work but the information that I am sending for each of them is unique so each of them should get different data but some how when I run the macro, data will mixed amount parties. Lets say that party 1 should get data 1 and party 2 should get data 2 and this is not happening, party 1 is getting data 2 and party 2 is getting data 1 or someone else data but not the one that belongs to it.

'macro

Code:

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.  This will need modification based on where it's being run.

Set myDraftsFolder = myFolders("Mailbox's name").Folders("Drafts")

'Loop through all Draft Items
i = 1
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
        i = i + 1
        'Send Item
        myDraftsFolder.Items.Item(lDraftItem).Display
        myDraftsFolder.Items.Item(lDraftItem).Send
        
        Start = Timer
        Do While Timer < Start + TimeValue("00:00:21")
                j = 1
        Loop
        'I added time to see it this was causing the issue but after it, I still got the issue.
    End If
   
    If i > 50 Then
        GoTo tohere
    End If
 
Next lDraftItem
 
tohere:
'Clean-up
 
Set myDraftsFolder = Nothing

Set myNameSpace = Nothing
Set myOutlook = Nothing

End Sub

Can anyone help me please?

MOD: please use CODE tags rather than QUOTE tags going forward... modified on this occasion for you.

Maybe I'm missing something but there's nothing that I can see in your code that determines the actual content of each mail item .... and it is seemingly the content that is your concern, no ?

I'm afraid you've lost me... all your code is doing is iterating the mail items in your Draft folder and mailing them if there's an address stipulated in the To field... what is actually in the email itself has nothing to do with the code you have posted.

Perhaps someone else can help as I'm drawing a blank I'm afraid.