check if send message appears in SendItems forder before moving

Status
Not open for further replies.

ludo

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Hi,

I'm using the code below (snipset) to send a mail with a Excel range in the body from within Excel.

This works almost perfect.

The only problem i'll have (randomly) is that i see that the send message isn't always moved to the destination folder.

To avoid this behavior, i would like to check if the send message appears into the Send Items folder before i move it to the destination folder.

Anyone out there who can provide me those few code lines that i need to place between the .send & moving the message to the destination folder (between the 2 red lines in the sub below)?

I think that a kind of loop will do it, but i have no clue on how to code it. All used code so far in this sub comes from different sites, and put it toghether like a jigsaw .

the criteria to look for is: strSubject & Date (green line).

Code below runs from a Excel 2010 worksheet and use late binding.

This makes it easier to distribute or run the worksheet on different PC's without the need to set everywhere a reference to the Outlook 14 vba library.

Sub Mail_Selection_Range_Outlook_Body()

'basic code from:

'http://www.rondebruin.nl/mail/folder3/mail4.htm

' Don't forget to copy the function RangetoHTML in the module.

' Working in Office 2000-2010

'

'adapted & extended by Ludo Soete

'--------------------------------'

<SNIP
'create a new folder to store the mails after sending

'folder name = "Verpakte Units"

'if folder doesn't exist, create it

On Error GoTo errorhandler

Set myDestFolder = mySendMail.Folders("Verpakte Units")

'

On Error Resume Next

With OutMail

> To = strMailToRec1 & ";" & strMailToRec2 & ";" & strMailToRec3 & ";" & strMailToRec4 'strRecipient

> CC = ""

> BCC = ""

> Subject = strSubject & Date

> HTMLBody = strBody1 & "<br>" & "<br>" & strBody2 & "<br>" & strFrom & "<br>" & "<br>" & "Verstuurd om: " & Time & "<br>" & "<br>" & RangetoHTML(rng)

.Send '.Display '

'inform the user that the mail has been send

'dont move this, ensure there's enough time to send so that we can move the mail

If blnMsgboxSendToMessage = True Then

MsgBox "Uw mail werdt verstuurd naar :" & vbCrLf & vbCrLf & strMailToRec1 & vbCrLf & strMailToRec2 & vbCrLf & strMailToRec3 & vbCrLf & strMailToRec4, vbInformation, "Mail verstuurd"

End If

'check if message moved to the SendItems folder before moving to destination folder

'

'move send mail to myDestination folder

Set myItem = myItems.Find("[Subject] =" & strSubject & Date) '

While TypeName(myItem) <> "Nothing"

If myItem.Subject = strSubject & Date Then

myItem.Move myDestFolder

End If

Set myItem = myItems.FindNext

Wend

strDestinationFolder = myDestFolder.Name

strSendMailboxName = mySendMail.Name

'show frmMsgMovedMessage depending on the blnfrmShowMovedMessage value

If blnfrmShowMovedMessage = True Then

frmMsgMovedMessage.Show

End If

End With

End Sub

<SNIP
Thanks for any help

regards,

Ludo
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Send and Receive Button - only check default account? Using Outlook 1
S Check if two organisition is added then i have to give managers passward creteria to send mail Using Outlook 1
Victor.Ayala Automated way to check the option "Show this folder as an email Address Book" Outlook VBA and Custom Forms 0
D Spell check Outlook VBA and Custom Forms 3
L Spell-check dictionary confusion Using Outlook 0
S How to export urls from email to excel and check the status of the url ? Using Outlook 5
N Private check box in table view Using Outlook 0
S Outlook to check for specific text Outlook VBA and Custom Forms 3
C Custom Outlook Form - Populate Information from Radio Button / Check Box Using Outlook 0
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
A Check for words in subject header before sending email Outlook VBA and Custom Forms 4
R Using "check for duplicates" for existing contacts Using Outlook 2
P Suppress dialog box on email check error? Using Outlook 5
Potty Ash MS Outlook 2010 custom form - validation or formula to request user to check a checkbox Outlook VBA and Custom Forms 16
I Check if sent email has been replied Outlook VBA and Custom Forms 1
K adding more rules to 'different domains check' macro Outlook VBA and Custom Forms 2
R Macro to check file name with outlook address book Outlook VBA and Custom Forms 0
Diane Poremsky Check Contacts before moving them to Hotmail Contacts folder Using Outlook 0
Diane Poremsky Check for missing attachments before sending a message Using Outlook 1
R Outlook 2010 Modify Style "Do not check spelling or grammar" not saving Outlook VBA and Custom Forms 0
K check for sender, follow to my personal adress and delete the sent folder. Outlook VBA and Custom Forms 1
A Check for attachment code not working Outlook VBA and Custom Forms 1
Diane Poremsky Check Message Size Before Sending Using Outlook 0
B Check for different domains macro to be triggered by specific domains only Outlook VBA and Custom Forms 2
V Check/convert to emailaddresses Outlook VBA and Custom Forms 11
JorgeDario how to check a MailItem has a digital signature (SMIME) with vba? Outlook VBA and Custom Forms 1
O Unable to check name. Using Outlook 3
R Outlook Custom form check if there an attachment Outlook VBA and Custom Forms 2
L Trying to check for the absence of mail. Outlook VBA and Custom Forms 1
Peter H Williams check for new email automaticlly Using Outlook 12
C Unusual Signature & Spell Check Query Using Outlook 1
M Calendar navigation displays previous field records.check calendar is shared.. Using Outlook 3
A Can Rule Check Category Contact is assigned? Using Outlook 1
T Outlook 2007 forms: Check boxes and free text boxes not retaining data Using Outlook 1
C Create a rule to only check new content in email - disregard original content Using Outlook 3
M Outlook Rules check for new line character Using Outlook 1
G Outlook rule check for messages not received Outlook VBA and Custom Forms 2
E Outlook could not create the work file. Check the temp environment variable Using Outlook 8
B Custom real time, time format check Outlook VBA and Custom Forms 1
B BCM shuts down everytime I try to import/export or check for error BCM (Business Contact Manager) 10
D Check whether mail item is proper for sending or not Outlook VBA and Custom Forms 5
P Check for the distribution list existence Outlook VBA and Custom Forms 1
H out to check whether outlook configured or not Outlook VBA and Custom Forms 1
M Check Profile info Outlook VBA and Custom Forms 1
L Check sent email and reply if have specific words Outlook VBA and Custom Forms 2
Z Check if email was sent Outlook VBA and Custom Forms 1
Z All Day Event Check Box Outlook VBA and Custom Forms 1
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
M I cant send emails via Outlook in my W10 PC. Using Outlook 3
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1

Similar threads

Top