"Other Actions" -> "Resend This Message ..." per VBA?

  • Thread starter Michael Freitter
  • Start date
Status
Not open for further replies.
M

Michael Freitter

Hello!

I need the vba code on a MailItem that make on a existing mail:

"Other Actions" -> "Resend This Message ..."

Thank you very much!

Michael
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
That should work by calling the commandbar button's Execute method. It's id

is 3165.

Best regards

Michael Bauer

Am Wed, 7 Oct 2009 14:31:02 -0700 schrieb Michael Freitter:


> Hello!

> I need the vba code on a MailItem that make on a existing mail:
> "Other Actions" -> "Resend This Message ..."

> Thank you very much!
> Michael
 
M

Michael Freitter

Hello,

thank you for the information, bur I am not a vba expert.

My code is:

-----------------------------------Sub eMailErneutÖffnen()

Dim AusgewähltesMail As MailItem

Set AusgewähltesMail = Application.ActiveExplorer.Selection.Item(1)

AusgewähltesMail.Display

End Sub

-----------------------------------How look the statement, that use the CommandBar button (or the

IRobbonControl) with the ID 3165?

Thank you!

Michael

"Michael Bauer " wrote:



> That should work by calling the commandbar button's Execute method. It's id
> is 3165.

> > Best regards
> Michael Bauer

> > >

> Am Wed, 7 Oct 2009 14:31:02 -0700 schrieb Michael Freitter:
>
> > Hello!
> > I need the vba code on a MailItem that make on a existing mail:
> > "Other Actions" -> "Resend This Message ..."
> > Thank you very much!
> > Michael

>
 
M

Michael Freitter

Hello,

thank you very much! It's works fine!

I have now one additional question:

Wherefrom got I the numbers of the controls?

e.g. 3165 in "objInsp.CommandBars.FindControl(, 3165)"

Exist a list with all numbers to the controls?

Regads

Michael

"JP" wrote:


> I prefer to roll my own:

> http://www.codeforexcelandoutlook.com/outlook-vba/resend-this-message/

> --JP

> On Oct 7, 5:31 pm, Michael Freitter
> <MichaelFreit...> wrote:
> > Hello!
> > I need the vba code on a MailItem that make on a existing mail:
> > "Other Actions" -> "Resend This Message ..."
> > Thank you very much!
> > Michael

>
 
J

JP

Check out http://support.microsoft.com/kb/201095#12

--JP

On Oct 8, 7:46 am, Michael Freitter

<MichaelFreit...> wrote:
> Hello,

> thank you very much! It's works fine!

> I have now one additional question:

> Wherefrom got I the numbers of the controls?
> e.g. 3165 in "objInsp.CommandBars.FindControl(, 3165)"

> Exist a list with all numbers to the controls?

> Regads
>    Michael
>
 
S

Sue Mosher [MVP]

Unfortunately, that KB article doesn't come with instructions on how to

adapt the Excel technique to Outlook, which has two different types of

windows, Explorer and Inspector. For Outlook, there's a VBA sample at

http://www.outlookcode.com/codedetail.aspx?id=1507 to get the IDs . Or use

the Outlook Spy tool from http://www.dimastr.com/outspy/.

Sue Mosher

"JP" <jp2112@earthlink.net> wrote in message

news:dfae439a-900c-42e1-8723-4253613c93ad@o36g2000vbl.googlegroups.com...

Check out http://support.microsoft.com/kb/201095#12

--JP

On Oct 8, 7:46 am, Michael Freitter

<MichaelFreit...> wrote:
> Hello,

> thank you very much! It's works fine!

> I have now one additional question:

> Wherefrom got I the numbers of the controls?
> e.g. 3165 in "objInsp.CommandBars.FindControl(, 3165)"

> Exist a list with all numbers to the controls?

> Regads
> Michael
>
 
J

JP

You're right, and the code isn't very efficient, but it does list the

FindControl IDs for both Inspector and Explorer objects.

--JP

On Oct 8, 9:19 am, "Sue Mosher [MVP]" <sue...@gmail.com> wrote:
> Unfortunately, that KB article doesn't come with instructions on how to
> adapt the Excel technique to Outlook, which has two different types of
> windows, Explorer and Inspector. For Outlook, there's a VBA sample athttp://www.outlookcode.com/codedetail.aspx?id=1507to get the IDs . Or use
> the Outlook Spy tool fromhttp://www.dimastr.com/outspy/.
> > Sue Mosher
>    >      >    >
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
richardwing Outlook 365 VBA to access "Other Actions" menu for incoming emails in outlook Outlook VBA and Custom Forms 0
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
A Change order of actions in one (!) rule Outlook VBA and Custom Forms 2
M Rule to pop a warning dialogue on certain actions Using Outlook 1
E outlook 2013 --->actions ---> view in browser, is there a way to change the Using Outlook 1
mikolajek Outlook 2013 IMAP actions (message move / delete etc.) significantly delayed Using Outlook 0
L How can I delete stationery from Actions, New Mail Message Using in outlook 2007? Using Outlook 6
R could not complete your last action or actions BCM (Business Contact Manager) 2
J Perform actions when email is sent Outlook VBA and Custom Forms 1
B resend if no reply and send an automatic reminder Outlook VBA and Custom Forms 0
L "sometimes" cant send mail, we have to copy and paste the message and resend? Using Outlook 2
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
HarvMan Outlook 365 - Rule to Move an Incoming Message to Another Folder Using Outlook 4
F Outlook 2019 Forwarding Message and Keeping Unread Status Outlook VBA and Custom Forms 0
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
C Populate form data into message body Outlook VBA and Custom Forms 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
B How to create a button that sorts and selects the most recent message with ONE click Using Outlook 2
P "Item could not be moved" message occurs frequently for IMAP inbox, Office 365 Using Outlook 0
A rule name into message - how? Outlook VBA and Custom Forms 5
A Links in email getting error message about group policy Using Outlook 4
O How to find and replace a word in Outlook-Agenda-Subject and Message? Using Outlook 0
X Open Hyperlinks in an Outlook Email Message (Help with Diane's solution) Outlook VBA and Custom Forms 3
Commodore Unable to move message Using Outlook 3
Y Disable Microsoft Outlook Test Message Using Outlook 4
S Unable to change Message Class Outlook VBA and Custom Forms 0
S Changing Message Class Outlook VBA and Custom Forms 4
Cathy Rhone Mail merge error message Using Outlook 1
C Can't Locate an Unread Message in my Outlook view pane Using Outlook 0
G Send a greeting message to a contact on birthday Outlook VBA and Custom Forms 5
B Inconsistent handling of message read/unread status by Outlook Using Outlook 3
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
Cathy Rhone The properties of the message have been changed Using Outlook 1
S Outlook 2016 A Shortcut to recall and delete and sent message. Using Outlook 1
T vba extract data from msg file as attachment file of mail message Outlook VBA and Custom Forms 1
S Unable to extract text from an Outlook email message Using Outlook 2
R Outlook 2016 Message-ID oddity/inconsistency? Using Outlook 7
J Implement Keywords based on body message Outlook VBA and Custom Forms 0
C must select message to trigger safe list Using Outlook 3
Witzker HowTo Change message Class of contact form Outlook VBA and Custom Forms 0
D.Moore VB script to Digitaly Sign newly created outlook message Outlook VBA and Custom Forms 2
O VBA Outlook Message Attachment - Array Index Out of Bounds Outlook VBA and Custom Forms 0
W September 2020 - No Default Email Client message after Office Update Using Outlook 1
A Flag Message for Follow Up after sending Outlook VBA and Custom Forms 1
S Outlook (2016 32bit; Gmail IMAP) - Save sent message to Outllook Folder Outlook VBA and Custom Forms 0
C Why won't Title display in message list? Using Outlook 1
icacream content in this message could not be downloaded.... Using Outlook 2
J Outlook 2016 After a search in all mailboxes, where is each message that was found? Using Outlook 6

Similar threads

Top