Outlook Security WARNING

[Shalih]

I need some help on figuring out how to send an email through Excel without getting the Microsoft Security message that asks you to Allow the message to be sent.

I do not need any third party tool to be installed. Please help.

[
Sub Try_this()
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
Sheets("Sheet1").Select
Range("C1").Select
Selection.End(xlDown).Select
v_end = ActiveCell.Row
v_month = Month(Range("d1").Value)
v_day = Day(Range("d1").Value)
For i = 1 To v_end
v_check_month = Month(Range("C" & i).Value)
v_check_day = Day(Range("C" & i).Value)

If v_check_month = v_month And v_check_day = v_day Then
Set OLF = GetObject("", _
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = "You have a birthday Reminder"
strEmail = "mohammed.shalih@xxxx.com"
Subject = "Hi"
Set ToContact = .Recipients.Add(mohammed.shalih@xxxx.com)
.Body = Range("B" & i).Value & Chr(13)
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End If

Next i
End Sub
]

 

[JP2112]

I do not need any third party tool to be installed. Please help.

And therein lies the problem. There is no way to avoid the Outlook Object Model Security Prompt using native Outlook methods. You need to use Extended MAPI (Redemption, vbMAPI, etc) to do so.

 

[Shalih]

but this would require a license? If you have any trusted freeware, can you suggest?

 

[JP2112]

vbMAPI requires a license, but Redemption does not (as long as you use it on one computer only). I can't tell if vbMAPI is distributable (my guess is no).

If you need to distribute Redemption, you need to purchase a license.

http://www.everythingaccess.com/vbMAPI.htm
http://www.dimastr.com/redemption/download.htm

 

[Shalih]

Thanks JP... extendedAPI really worked..... really greatfeull..

 

[VoG]

This is worth a read as well http://www.rondebruin.nl/mail/prevent.htm

 

[JP2112]

With all due respect to Ron, and noting that this applies to Outlook 2007, you can turn off the object model guard but you'll never be warned when something like a virus tries to use your address book. Hopefully your AV program is kept up to date and is able to stop programs trying to do this.

Whether that is a "correct installed system" is a matter of perspective.

From MSKB:

Never warn me about suspicious activity (not recommended)

This setting prevents all security warnings and disables the Object Model Guard. Use this setting only in controlled environments where the risk of malicious code running on the computer is low.

 

[Shalih]

IF it was me, i would stick to and I have already implemented the use of MapiLab as they are trust worthy to OUTLOOK... Its pretty easier/free and Secure....

More ideas welcome!