PDA

View Full Version : avoid outlook message



slamet Harto
11-30-2008, 11:43 PM
Hi there,

Kindly advise me on how to avoid message like this: (see the attached)

I found this simple code and trying to implement in my job.
this code is working nice. However, i got a message in my outlook that ask me to choose "Yes or No" (please have a look into attachement).
What I want is let send mail and ignore outlook message.


Appreciate for your kind assistance.
Rgds, Harto

note:" I have been trap with application.displayalert = false" but doesn't work.
Sub Emailrange()
ActiveSheet.Range("E8:J19").Select
ActiveWorkbook.EnvelopeVisible = True
Application.DisplayAlerts = False
With ActiveSheet.MailEnvelope
.Introduction = "This is a test."
.Item.To = "zzz.com (slamet.harto@danamon.co.id)"
.Item.Subject = "subject"
.Item.Send
End With
Application.DisplayAlerts = True
End Sub

Bob Phillips
12-01-2008, 03:09 AM
See http://www.rondebruin.nl/mail/prevent.htm