Using VBA code in ThisOutlookSession - Can I send an email asynchronously?

[Steve]

I have a small routine that uses the .Send method of a MailItem object
to send a message.
The problem I can't get around is that the macro hangs until the
message is sent.
I'd rather initiate the Send event, cross my fingers, and let the code
proceed.
I'm really not even interested in an event-handler to determine if/
when the message was successfully sent.
I just don't want to make the user wait. If the message fails to send,
it can stay in the outbox...

Thanks,

Steve-lvl70holypriest

 

[Michael Bauer [MVP - Outlook]]

You can defer the delivery for, say, three minutes (DeferredDeliveryTime
property). Or use a timer:

http://www.vboffice.net/sample.html?mnu=2&lang=en&smp=4&cmd=showitem&pub=6

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Mon, 27 Aug 2007 16:47:35 -0700 schrieb Steve:

 

[Steve]

Thanks for the reply. I don't want to defer the transmission of the
message. I want to send it immediately.
I just want the code to continue after the attempted "send".
If the exhange server is down or the network is down, the code just
sits and waits until the message is sent.
I want it to continue (related code snippet below)

Steve

With objMail
.BodyFormat = olFormatPlain
.To = NewTo
.Subject = NewSubject
.Body = NewBody
.DeleteAfterSubmit = True
.Send 'HANGS HERE UNTIL MESSAGE SENDS
End With

 

[Michael Bauer [MVP - Outlook]]

So use the timer like this:

sub()
create message
call timer with a delay of, say, 100ms
code execution goes on here
end sub

timer()
send ' here execution stops, of course. No way around.
end timer

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Thu, 30 Aug 2007 12:52:55 -0700 schrieb Steve: