Solved

How to resend message via VBA

Posted on 2007-12-06
1
304 Views
Last Modified: 2010-05-18
Hi all,

I can retrieve sent messages via VBA and I would like to send them again. Normaly I would click on commandbar ACTION, RESEND, but how to do the same via VBA?

many thanks

V.
0
Comment
Question by:vladobb
1 Comment
 
LVL 59

Accepted Solution

by:
Chris Bottomley earned 500 total points
ID: 20425921
Sub test1()
Dim myObj As Object
Dim myMail As mailitem

    Set myObj = Application.ActiveInspector.CurrentItem
    If myObj.Class = olMail Then
        Set myMail = myObj
        myMail.Send
    End If
End Sub

OBviously any edits you want to make need to be done before the send is actioned!

Chris
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Granting full access permission allows users to access mailboxes present in their database. By giving full access permission one can open and read the content of any mailbox but cannot send emails from that mailbox.
Not sure what the best email signature size is? Are you worried about email signature image size? Follow this best practice guide.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now