• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 996
  • Last Modified:

Forwarding mail via Outlook VBA script

Hello everyone.

I got some suggestions from others here on a script and it works good except that the Outlook security message pops up with every message.  I seen Stefri had mentioned using Redemption on question Q_20914658 to overcome this problem, but I have yet to get it to work.  Does anyone have any suggestions on how to get this to work?

Sub FwdToMe(Item As Outlook.MailItem)
    Dim myitem As Outlook.MailItem
    Dim address As String
    Set myitem = Item.Forward
    address = "email address"
    myitem.Recipients.Add address
    myitem.Body = "WHATEVER TEXT YOU WANT TO INSERT" & vbCrLf & vbCrLf & myitem.Body
    myitem.Send
End Sub

0
rchandler6473
Asked:
rchandler6473
1 Solution
 
Mob-bomCommented:
I assume you are using Outlook XP with SP3?  If so, you can't avoid it, its a new security feature released with SP3.  You can workaround it with http://www.express-soft.com/mailmate/clickyes.html

This link will give you the background on the security feature: http://www.slipstick.com/outlook/esecup.htm
0
 
rockiroadsCommented:
Ive got outlook 2000, I dont get that msg, might have something to do with outlook security updates

you could try going into Tools/Options and look at the security tab

perhaps look at zone settings/customise,

is anything in there?
0
 
rchandler6473Author Commented:
I'm using Outlook 2003, but this is for SPAM so I can try it on Outlook 2000, but I was under the impression that I couldn't run scripts from the rules.  Outlook XP you can, but I haven't tried it yet.  I'll get the express-soft.com thing a try.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now