Macro creation for Outlook insert subject

Status
Not open for further replies.
D

damadhatter

Member
I have a user who wants to create a simple Outlook Macro to insert the same line of text into the subject field in Outlook that they have to type 100's of times a day. They are using Windows XP SP3, Outlook 2007 w/SP2, anybody who could help?




I have found this online (see below), which works, but you have to have an email open. I would like to have one that opens a new email with the subject line inserted.




Sub InsertSubject()


Dim olkMsg As Outlook.MailItem


'Get the currently open message'


Set olkMsg = Outlook.Application.ActiveInspector.CurrentItem


olkMsg.Subject = "My text"


'Destroy the object to avoid memory leaks'


Set olkMsg = Nothing


End Sub




I also found this which users say should work for exactly what I need it for, but when putting it in VB editor the line with "Outlook.Application" is highlighted in red and when trying to run it I get a compile error.




Public Sub NewEmail()


Dim objApp As Outlook.Application


Dim objMessage As MailItemSet objApp = CreateObject("Outlook.Application")


Set objMessage = objApp.CreateItem(olMailItem)


objMessage.Subject = "My Text"


objMessage.Display


Set objMessage = Nothing


Set objApp = Nothing


End Sub






I am a server admin, so I don't know much about this stuff, just trying to help a user/friend out. Any ideas would be great! Thanks guys!
 
Set olkMsg = Application.CreateItem(olMailItem)

olkMsg.Subject = "My text"

olkMsg.Display

Sue Mosher

"damadhatter" <damadhatter.3wifsy@no-spam.invalid> wrote in message

news:damadhatter.3wifsy@no-spam.invalid...

> I have a user who wants to create a simple Outlook Macro to insert the
> same line of text into the subject field in Outlook that they have to
> type 100's of times a day. They are using Windows XP SP3, Outlook 2007
> w/SP2, anybody who could help?

> I have found this online (see below), which works, but you have to have
> an email open. I would like to have one that opens a new email with the
> subject line inserted.

> Sub InsertSubject()
> Dim olkMsg As Outlook.MailItem
> 'Get the currently open message'
> Set olkMsg = Outlook.Application.ActiveInspector.CurrentItem
> olkMsg.Subject = "My text"
> 'Destroy the object to avoid memory leaks'
> Set olkMsg = Nothing
> End Sub

> I also found this which users say should work for exactly what I need
> it for, but when putting it in VB editor the line with
> "Outlook.Application" is highlighted in red and when trying to run it I
> get a compile error.

> Public Sub NewEmail()
> Dim objApp As Outlook.Application
> Dim objMessage As MailItemSet objApp =
> CreateObject("Outlook.Application")
> Set objMessage = objApp.CreateItem(olMailItem)
> objMessage.Subject = "My Text"
> objMessage.Display
> Set objMessage = Nothing
> Set objApp = Nothing
> End Sub

> I am a server admin, so I don't know much about this stuff, just trying
> to help a user/friend out. Any ideas would be great! Thanks guys!

> > damadhatter
> https://forums.slipstick.com/
>
 
Status
Not open for further replies.
< A problem using outlook RichEdit control | Getting values of custom categories set on Calendar folder >
Similar threads
Thread starter Title Forum Replies Date
S Macro to speed email creation Outlook VBA and Custom Forms 4
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
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2

Similar threads

Back
Top