Outlook 2016 - converting Word VBA to default Outlook message

Status
Not open for further replies.
C

CynthiaB

New Member
Outlook version
Outlook 2016 64 bit
Email Account
Exchange Server
I've been tasked with automating a paper-based procedure, and have done so successfully in Word. Now I'm being asked if this can be moved over to Outlook - and I don't know anything about coding in Outlook at all. I am self-taught in Word and only know how to get a few basic things done.

The purpose of the form is to have a maintenance person at a client site pull up the email on this phone/tablet, open a new mail to send to the client, reporting on specific conditions at their site. The "To", "CC" and "BCC" will always be the same - a part of the "Subject" line will always be the same. When they open the new message, the idea is that the body will be pre-populated with the same fields and headers every time. Is there a way to accomplish this? I've attached my code from Word below; I need to know how to have this automatically go into the body of the email, without losing functionality of the control boxes. TIA.


Sub SnowClearingAudit_Healthcare_EmailTemplate()
'
' SnowClearingAudit_Healthcare_EmailTemplate
'

'SiteA : A-WING | West | BBQ Area - pre-defined by client
'

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Date "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="(yyyy.mm.dd)"
Selection.Range.ContentControls.Add (wdContentControlDate)
Selection.ParentContentControl.Title = "Date"
Selection.ParentContentControl.Tag = "Date"
Selection.ParentContentControl.LockContentControl = True
Selection.MoveRight unit:=wdCharacter, Count:=15
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Time "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="(24hr - i.e.: 0600 or 1800): "
Selection.Range.ContentControls.Add (wdContentControlText)
Selection.ParentContentControl.Title = "Time"
Selection.ParentContentControl.Tag = "Time"
Selection.ParentContentControl.LockContentControl = True
Selection.MoveRight unit:=wdCharacter, Count:=35
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Style = ActiveDocument.Styles("Intense Quote")
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeText Text:="Site A: A-WING | West | BBQ Area"
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Temperature "
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="(oC)"
Selection.MoveLeft unit:=wdCharacter, Count:=2
Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Superscript = wdToggle
Selection.MoveRight unit:=wdCharacter, Count:=3
Selection.TypeText Text:=": "
Selection.Range.ContentControls.Add (wdContentControlText)
Selection.ParentContentControl.Title = "Temp"
Selection.ParentContentControl.Tag = "Temp"
Selection.ParentContentControl.LockContentControl = True
Selection.MoveRight unit:=wdCharacter, Count:=35
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="P/SAL:"
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
Selection.Range.ContentControls.Add (wdContentControlDropdownList)
Selection.ParentContentControl.Title = "P/SAL"
Selection.ParentContentControl.Tag = "P/SAL"
Selection.ParentContentControl.LockContentControl = True
Selection.ParentContentControl.DropdownListEntries.Clear
Selection.ParentContentControl.DropdownListEntries.Add Text:= _
"Choose an item.", Value:=""
Selection.ParentContentControl.DropdownListEntries.Add Text:="Yes", Value _
:="Yes"
Selection.ParentContentControl.DropdownListEntries.Add Text:="No", Value:= _
"No"
Selection.MoveRight unit:=wdCharacter, Count:=17
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="SS:"
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
Selection.Range.ContentControls.Add (wdContentControlDropdownList)
Selection.ParentContentControl.Title = "SS"
Selection.ParentContentControl.Tag = "SS"
Selection.ParentContentControl.LockContentControl = True
Selection.ParentContentControl.DropdownListEntries.Clear
Selection.ParentContentControl.DropdownListEntries.Add Text:="Choose an item.", Value:=""
Selection.ParentContentControl.DropdownListEntries.Add Text:="Yes", Value:="Yes"
Selection.ParentContentControl.DropdownListEntries.Add Text:="No", Value:="No"
Selection.MoveRight unit:=wdCharacter, Count:=17
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="PO:"
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
Selection.Range.ContentControls.Add (wdContentControlDropdownList)
Selection.ParentContentControl.Title = "PO"
Selection.ParentContentControl.Tag = "PO"
Selection.ParentContentControl.LockContentControl = True
Selection.ParentContentControl.DropdownListEntries.Clear
Selection.ParentContentControl.DropdownListEntries.Add Text:="Choose an item.", Value:="Choose an item."
Selection.ParentContentControl.DropdownListEntries.Add Text:="Yes", Value:="Yes"
Selection.ParentContentControl.DropdownListEntries.Add Text:="No", Value:="No"
Selection.MoveRight unit:=wdCharacter, Count:=17
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="CONDITIONS:"
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
Selection.Range.ContentControls.Add (wdContentControlDropdownList)
Selection.ParentContentControl.Title = "Conditions"
Selection.ParentContentControl.Tag = "CONDITIONS"
Selection.ParentContentControl.LockContentControl = True
Selection.ParentContentControl.DropdownListEntries.Clear
Selection.ParentContentControl.DropdownListEntries.Add Text:="Choose and item.", Value:="Choose an item."
Selection.ParentContentControl.DropdownListEntries.Add Text:="S.S.", Value:="S.S."
Selection.ParentContentControl.DropdownListEntries.Add Text:="P.O.", Value:="P.O."
Selection.ParentContentControl.DropdownListEntries.Add Text:="D/DS", Value:="D/DS"
Selection.ParentContentControl.DropdownListEntries.Add Text:="C.C.", Value:="C.C."
Selection.ParentContentControl.DropdownListEntries.Add Text:="W.S.", Value:="W.S."
Selection.ParentContentControl.DropdownListEntries.Add Text:="N.I.", Value:="N.I."
Selection.ParentContentControl.DropdownListEntries.Add Text:="B.S.H.", Value:="B.S.H."
Selection.ParentContentControl.DropdownListEntries.Add Text:="M.O.C.", Value:="M.O.C"
Selection.ParentContentControl.DropdownListEntries.Add Text:="F.S.R.", Value:="F.S.R."
Selection.ParentContentControl.DropdownListEntries.Add Text:="S.N.", Value:="S.N."
Selection.ParentContentControl.DropdownListEntries.Add Text:="L.F.", Value:="L.F."
Selection.ParentContentControl.DropdownListEntries.Add Text:="W.", Value:="W."
Selection.ParentContentControl.DropdownListEntries.Add Text:="D.", Value:="D."
Selection.ParentContentControl.DropdownListEntries.Add Text:="H.W.", Value:="H.W."
Selection.MoveRight unit:=wdCharacter, Count:=17
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="NO ICE:"
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
Selection.Range.ContentControls.Add (wdContentControlDropdownList)
Selection.ParentContentControl.Title = "NoIce"
Selection.ParentContentControl.Tag = "No Ice"
Selection.ParentContentControl.LockContentControl = True
Selection.ParentContentControl.DropdownListEntries.Clear
Selection.ParentContentControl.DropdownListEntries.Add Text:="Choose an item.", Value:="Choose and item."
Selection.ParentContentControl.DropdownListEntries.Add Text:="Yes", Value:="Yes"
Selection.ParentContentControl.DropdownListEntries.Add Text:="No", Value:="No"
Selection.MoveRight unit:=wdCharacter, Count:=17
Selection.TypeParagraph
Selection.TypeParagraph

Selection.Font.Bold = wdToggle
Selection.TypeText Text:="COMMENTS:"
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
Selection.Range.ContentControls.Add (wdContentControlText)
Selection.ParentContentControl.Title = "COMMENTS"
Selection.ParentContentControl.Tag = "COMMENTS"
Selection.ParentContentControl.LockContentControl = True
Selection.ParentContentControl.MultiLine = True
Selection.MoveRight unit:=wdCharacter, Count:=35
Selection.TypeParagraph
Selection.TypeParagraph


End Sub
 
Status
Not open for further replies.
< Adding a contact to Outlook with a custom form using Access VBA | Macro that does not overwrite but add a number >
Similar threads
Thread starter Title Forum Replies Date
A Outlook 2016 Outlook 2016 vs. New Outlook Using Outlook 4
M Outlook 2016 still feature updating Using Outlook 0
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
S Outlook 2016 and Acrobat PDFMaker Office COM Addin Using Outlook 0
W Outlook 2016 MSI - Possible to make work with O365 modern Auth & Win7? Using Outlook 4
J Outlook 2016 Trying to get Outlook 2016 to work with Office 365 Using Outlook 0
W Transfer Outlook 2016 autocomplete file to Outlook 2007 Using Outlook 1
J Outlook 2016 Can't display some embedded HTML images in Outlook 2016 Using Outlook 2
J Outlook 365 Outlook 2016/365 Contacts Lose Info when Favorited to the To-Do Bar Using Outlook 2
O Moving "tasks" to inbox in Outlook 2016 Using Outlook 1
Z Remove GMAIL IMAP account from Outlook 2016 Using Outlook 2
P Prevent Outlook 2016 from using DASL filter Using Outlook 4
bhamberg Shortcuts in Folder Pane (Outlook 2016) Using Outlook 19
G Outlook 2016: Want IMAP Data Files on My D: Drive and Not C: Drive Using Outlook 1
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
P Color Code or highlight folders in Outlook 2016 Using Outlook 2
B Outlook 2016 Unable to view images or logos on the outlook 2016 emails the same html code works well when i use outlook 2010 Using Outlook 0
B vBA for exporting excel file from outlook 2016 Outlook VBA and Custom Forms 3
M Issue transferring Outlook 2016 email accounts & settings onto new computer Using Outlook 8
glnz Can Word Normal.dotm interfere with Outlook? Office 2016 Using Outlook 5
D Outlook 2016 and Earlier with Office365 in 2021 Using Outlook 3
B Outlook 2016 Retail C2R keeps logging since update? Using Outlook 0
V Outlook 2016 Does Outlook-2016 (64 bit) work with iCloud for Windows ? Using Outlook 5
R Microsoft Outlook 2016 - Gmail not sending, asks for password for SMTP, tried different ports Using Outlook 23
V Outlook 2016 Outlook-2016 and iCloud for Windows - Problems Using Outlook 11
U Outlook 2016 Outlook 2016 sender name Using Outlook 1
S Outlook (2016 32bit; Gmail IMAP) - Save sent message to Outllook Folder Outlook VBA and Custom Forms 0
A Backup Email Accounts On OutLook For Mac 2016 (Microsoft 365 subscription version) Using Outlook 0
M Office 2016 Outlook is forgetting passwords Using Outlook 15
E Can one still buy Outlook (or Office) 2016? Using Outlook 6
I Error saving screenshots in a custom form in outlook 2016, outlook 365 - ok in outlook 2013, outlook 2010 Outlook VBA and Custom Forms 5
R seperate read layout to design in outlook 2016..Help!! Outlook VBA and Custom Forms 3
GregS Why is Outlook 2016 mail in Outlook.com? Using Outlook 1
G Recurring tasks break links Outlook 2016 Using Outlook 5
A How to get body of all emails in outlook 2016 to view in blue color Using Outlook 1
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
GregS Outlook 2016 iPhone won't download Outlook 2016 Mail. Using Outlook 0
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
A How to open a specific link automatically with outlook 2016 Outlook VBA and Custom Forms 6
V Outlook 2016 will not move emails in search results Using Outlook 4
K Using Outlook 2016 to draw Using Outlook 1
M Outlook 2016 Free/Busy settings ignored Using Outlook 0
K Outlook 2016 - controlling IMAP OST size with Group Policy not working Using Outlook 1
C Outlook 2016/2019 hangs after being open for an extended period Using Outlook 4
GregS 2016 Contact List being managed by Outlook.com? Using Outlook 1
A Outlook 2016 in Cached Mode Using Outlook 1
G Outlook 2016 sync contacts directly between phone and computer using outlook 2016 Using Outlook 0
N Outlook 2016 Folder Icons Look Using Outlook 0
Marc2019 Outlook 2016 Font Problem Using Outlook 5

Similar threads

Back
Top