I wrote this simple script to auto populate info that i do several times a day.
When i runt he script I want to be able to add additional information on the subject line.
Right now the typing focus is after the to: email, how can i get it to be at the end of the subject line?
Sub actupd8()
'Add BCC
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Set myOlApp = GetObject(, "Outlook.Application")
Set myItem = myOlApp.ActiveInspector.currentItem
With myItem
.To = "xxx.com" ' [the focus to type is here]
.CC = "xxxx.com"
.Subject = "Account Update" ' [want the focus here]
End With
SendKeys "^{ENTER}"
End Sub
When i runt he script I want to be able to add additional information on the subject line.
Right now the typing focus is after the to: email, how can i get it to be at the end of the subject line?
Sub actupd8()
'Add BCC
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Set myOlApp = GetObject(, "Outlook.Application")
Set myItem = myOlApp.ActiveInspector.currentItem
With myItem
.To = "xxx.com" ' [the focus to type is here]
.CC = "xxxx.com"
.Subject = "Account Update" ' [want the focus here]
End With
SendKeys "^{ENTER}"
End Sub