New Macro/Script needed

Status
Not open for further replies.
E

earmor

Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
I would like to create a macro or a script that would copy the information in the subject of an email and paste it into the to: of an email.

We have a process by which someone will send an email and the subject will contain a fax number that we would like to automatically send as the recipient.
 
That is doable. Do you want to outlook to do this automatically as messages arrive? Is the fax # the only thing in the subject field?

See To Forward the message body to another address - you'd use

objMsg.Recipients.Add item.subject
 
Yes I would like for it to be automatic. Would this be the script?

Sub SendNew(Item As Outlook.MailItem)

Dim objMsg As MailItem

Set objMsg = Application.CreateItemFromTemplate("C:\path\to\test-rule.oft")

' If the address you want to send to is not saved in the template,

' set the addresses here 'objMsg.Recipients.Add "alias@domain.com"

objMsg.Recipients.Add Item.Subject

objMsg.display End Sub

End Sub
 
Mostly. This probably needs changed though:

Set objMsg = Application.CreateItemFromTemplate("C:\path\to\tes t-rule.oft")

Are you using the contents of the incoming message in the fax? You either need to copy it to a new message or forward the message.

This is one possible replacement for that line:

Set objMsg = Application.CreateItem(olMailItem)

objMsg.Body = Item.Body
 
Are you using the contents of the incoming message in the fax? You either need to copy it to a new message or forward the message.

In response to your question above, I will be forwarding the body of the original email as the body of the new email.

Is this what the script should look like?

Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

objMsg.Body = Item.Body

' If the address you want to send to is not saved in the template,

' set the addresses here 'objMsg.Recipients.Add "alias@domain.com"

objMsg.Recipients.Add Item.Subject

objMsg.display End Sub

End Sub

Also, where can I find a refernce of the Outlook 2010 field names and their definition? For example where would I be able to find what the subject of an email is referenced as within VB?
 
That will work (except for the 2 end sub's in your code sample), if the messages are HTML and have links, you may need to use HTMLBody instead of just Body.

objMsg.HTMLBody = Item.HTMLBody

The object model help is linked on the View menu - that has all the fields. plus, as you start typing, field names should come up. for example, typing item then the period (.) should bring up a little menu to choose fields & objects from. The list is contextual, based on what is before the .

vba-editor.png
 
Status
Not open for further replies.
< Lost entire Contact Folder in Outlook 2013 - Cloud-based. | OL 13 Reminders >
Similar threads
Thread starter Title Forum Replies Date
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
J VBS Script (macro) for word to open Outlook template. Outlook VBA and Custom Forms 2
P Vba script including macro appears in rules but wont run Outlook VBA and Custom Forms 6
L Outlook 2007 Macro to Run a Script From a Contact Form Using Outlook 41
L Script to Macro in Module Using Outlook 36
N Macro in this Project are disabled Outlook VBA and Custom Forms 2
M Outlook 365 Amending code so macro runs within current new mail window Outlook VBA and Custom Forms 0
M Outlook 365 macro - automatically attach file based on subject line Outlook VBA and Custom Forms 0
J Outlook macro to run before email is being send Outlook VBA and Custom Forms 3
H Macro to Delete Duplicate items in Outlook calendar where title is the same and date is the same Outlook VBA and Custom Forms 0
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
mrrobski68 Issue with Find messages in a conversation macro Outlook VBA and Custom Forms 1
G Creating Macro to scrape emails from calendar invite body Outlook VBA and Custom Forms 6
M Use Macro to change account settings Outlook VBA and Custom Forms 0
J Macro to Reply to Emails w/ Template Outlook VBA and Custom Forms 3
C Outlook - Macro to block senders domain - Macro Fix Outlook VBA and Custom Forms 1
Witzker Outlook 2019 Macro to seach in all contact Folders for marked Email Adress Outlook VBA and Custom Forms 0
S macro error 4605 Outlook VBA and Custom Forms 0
A Macro Mail Alert Using Outlook 4
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
J Macro to send email as alias Outlook VBA and Custom Forms 0
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 6
D Outlook 2016 Creating an outlook Macro to select and approve Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to send an Email Template from User Defined Contact Form Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to check Cursor & Focus position Outlook VBA and Custom Forms 8
V Macro to mark email with a Category Outlook VBA and Custom Forms 4
M Outlook 2019 Macro not working Outlook VBA and Custom Forms 0
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
V Macro to count flagged messages? Using Outlook 2
sophievldn Looking for a macro that moves completed items from subfolders to other subfolder Outlook VBA and Custom Forms 7
S Outlook Macro for [Date][Subject] Using Outlook 1
E Outlook - Macro - send list of Tasks which are not finished Outlook VBA and Custom Forms 3
E Macro to block senders domain Outlook VBA and Custom Forms 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Line to move origEmail to subfolder within a reply macro Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to answer a mail with attachments Outlook VBA and Custom Forms 2
A Outlook 2016 Macro to Reply, ReplyAll, or Forward(but with composing new email) Outlook VBA and Custom Forms 0
J Macro to Insert a Calendar Outlook VBA and Custom Forms 8
W Macro to Filter Based on Latest Email Outlook VBA and Custom Forms 6
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3

Similar threads

Back
Top