Email macro

[sthack99]

I have a macro that automatically saves the workbook I have open and then sends it as an attachment through email. The only problem I have with it is when it attemps to send the email, a message box appears saying "A program is trying to automatically send e-mail on your behalf. Do you want to allow this? 'Yes' or 'No'" Here's a copy of the code. Is there anyway to get around this? It's really annoying.

Sub SpecialSaveWarrantySheets()
'
' SpecialSaveWarrantySheets Macro
' Macro recorded 1/15/2007 by Peed User
'
' Keyboard Shortcut: Ctrl+Shift+S
'
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\sthackston\Desktop\Warranty Job Sheets\" & Range("B4").Value & "-" & Range("D4").Value & ".xls"
ActiveWorkbook.SendMail Recipients:="servicerequest@peedplumbing.com", ReturnReceipt:=True
ActiveWorkbook.Close

End Sub

 

[sthack99]

FYI - I downloaded Outlook Redemption, but I don't know how to incorporate it into my script to bypass the security message. They say to add this:

dim SafeItem, oItem
set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem
set oItem = Application.CreateItem(0) 'Create a new message
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "somebody@somewhere.com"
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Testing Redemption"
SafeItem.Send

But I've tried that and it still isn't working. I must not be doing something right. Can anyone show me how to add this script to my script?

 

[sthack99]

anyone?

 

[calming.insanity]

i use "Advanced Security for Outlook 1.4"

you don't have to incorporate any special code into the vb or any files. just simply allows you to set the option to not warn about the file.

seems to work for me

 

[sthack99]

I'll try that out. Thanks!

 

[sthack99]

It's still giving me the annoying pop up. Was there something I was supposed to do after installing it?

 

[Joe Was]

Take a look here:


http://www.mrexcel.com/board2/viewtopic.php?t=233686

 

[crazypabs]

Outlook Fix to dispense with Security settings

There is a fix using the registry.

http://support.microsoft.com/kb/885682

Works for office 2003 not sure about past or future versions.

cheers

Matt