Forum Discussion

karenlorr_uk's avatar
karenlorr_uk
Copper Contributor
Mar 08, 2022

Send email only after previous

I would like to send 2 emails to someone. How would I force the sending of the 2nd email only after the previous has been sent. I have tried a Yes/No msgbox but the 2nd email still opens in the b...
access
arnel_gp's avatar
arnel_gp
Iron Contributor
Mar 08, 2022
add a Timer loop between each SendObject.
Example:

'First email
DoCmd.SendObject....
Dim t
t = Timer + .5
Do Until timer > t
DoEvents
Loop
'Second email
DoCmd.SendObject...
karenlorr_uk's avatar
karenlorr_uk
Copper Contributor
Mar 08, 2022

Thanks for helping.

If I put a timer on the vba and run the database on a 2 screen system (just so I can see what's happening) the 2 code starts running before the 1st email is sent.

Maybe there is "something like" a popup confirmation I can use once the first mail is sent and outlook closes.

I didn't think this would be a problem - but I have been trying for a while to get this to run.

DoCmd.SendObject acSendNoObject, "", "", strEmail, , "", strTitle1, "Hi " & strName , True, ""
'something here to stop the 2nd DoCmd runing until after the first has completed
DoCmd.SendObject acSendNoObject, "", "", strEmail, , "", strTitle2, "Hi " & strName , True, ""
End Sub
  • karenlorr_uk's avatar
    karenlorr_uk
    Copper Contributor
    Mar 08, 2022

    As outlook will close once the first email has been sent I've even tried using this 

     

     

    'Run some code here to send the 1st email
Dim myOutlook As Object
On Error Resume Next
Set myOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If myOutlook Is Nothing Then
'some code here to run the 2nd email
End If

     

     


    but this still didn't work and the 2nd email starts sending  even if outlook is open (which it shouldn't).

    Ha Ha you would think this was simple

Resources