Consulting

Results 1 to 3 of 3

Thread: How to modify an outgoing email !?

  1. #1
    VBAX Newbie
    Joined
    Jun 2005
    Posts
    1
    Location

    How to modify an outgoing email !?

    Greetings all,
    I am new to macro scripting and i need some help.
    What i am trying to do is to add some sort of a signature but dependent on the receiver. I have tried the Application_ItemSend it works, but it keeps on asking about security manager or something like this. Is there a way to modify the message without being annoyed by any security manager ?!?!

    Another question, How can some one write outlook addins? Lets say i want to add a new tab to the options menu, is that possible ?

    Regards

  2. #2
    Administrator
    VP-Knowledge Base
    VBAX Guru MOS MASTER's Avatar
    Joined
    Apr 2005
    Location
    Breda, The Netherlands
    Posts
    3,281
    Location
    Hi & welcome to VBAX!

    The error warning is a security warning of Outlook and you can't program arround it with normal VBA (Outlook Object Model)

    On this page you'll find all possible work arrounds: Click here

    Outlook Redemption is a good tool to pack within your setup and works great!

    Yes it's possible to add a new tab to the Options dialog. I don't know how to do it myself but I have a com add-in which does just that...so that proves it to me.

    I think for that question you'd better go to the Outlook VBA newsgroup or better yet the VB newsgroup. (If you can't find the answer here)

    Enjoy!
    _________
    Groetjes,

    Joost Verdaasdonk
    M.O.S. Master

    Mark your thread solved, when it has been, by hitting the Thread Tools dropdown at the top of the thread.
    (I don't answer questions asked through E-mail or PM's)

  3. #3
    VBAX Expert Shazam's Avatar
    Joined
    Sep 2005
    Posts
    530
    Location
    This code will By-Pass the security warning of Outlook.



    [VBA]

    Sub Send_Test()
    Dim objol As New Outlook.Application
    Dim objmail As MailItem
    Set objol = New Outlook.Application
    Set objmail = objol.CreateItem(olMailItem)
    With objmail
    .To = "Anybody@home.com"
    .Subject = "Who/Me"
    .Body = ""
    .NoAging = True
    .Attachments.Add "C:\A test.xls"
    .Display
    End With
    Set objmail = Nothing
    Set objol = Nothing
    SendKeys "%{s}", True

    End Sub

    [/VBA]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •