Macro creation for Outlook insert subject

Status
Not open for further replies.
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!
 
S

Sue Mosher [MVP]

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.
Similar threads
Thread starter Title Forum Replies Date
S Macro to speed email creation Outlook VBA and Custom Forms 4
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 0
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 1
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 2
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
witzker HowTo start a macro with an Button in OL contact form Outlook VBA and Custom Forms 12
witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 2
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
Eike Move mails via macro triggered by the click of a button? Outlook VBA and Custom Forms 0
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 4
U Macro for reminders,tasks,calendar Outlook VBA and Custom Forms 4
V macro runs slower on startup than after Outlook VBA and Custom Forms 3
N Macro to move all recipients to CC while replying Outlook VBA and Custom Forms 0
A VBA macro for 15 second loop in send and received just for 1 specific mailbox Outlook VBA and Custom Forms 1
G VBA Macro Calendar Printing Assistant 4
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
R Macro Schedule every day in Outlook Using Outlook 0
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
Healy Consultants Macro to remove inside organization distribution list email address when reply to all recepients Outlook VBA and Custom Forms 0
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
N How can I increase/faster outlook VBA Macro Speed ? Using Outlook 2
4 Macro to set the category of Deleted Item? Outlook VBA and Custom Forms 2
D.Moore Folder view settings by VBA macro Outlook VBA and Custom Forms 57
A Outlook macro to create search folder with mail categories as criteria Outlook VBA and Custom Forms 3
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
V Outlook Macro to show Flagged messages Outlook VBA and Custom Forms 2
O Run macro automatically at sending an email Using Outlook 11
R Retain Original Message When Forwarding With Macro Outlook VBA and Custom Forms 3
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
B Reply and replyall macro is not working Outlook VBA and Custom Forms 1
O Macro - paste as plain text Outlook VBA and Custom Forms 2
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
witzker Macro to set contact reminder to next day 9:00 Outlook VBA and Custom Forms 45
M Adding Macro to populate "to" "subject" "body" not deleting email string below. Outlook VBA and Custom Forms 5
E Copying data from e-mail attachement to EXCEL file via macro Outlook VBA and Custom Forms 38
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
R VBA macro - new message Outlook VBA and Custom Forms 3
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
S Macro using .SendUsingAccount only works the first time, after starting Outlook Outlook VBA and Custom Forms 4
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
B VBA Macro for assigning multiple Categories to an email in my Inbox Outlook VBA and Custom Forms 1

Similar threads

Top