Hi all
I have got some VBA code that opens up outlook, inputs all the subject, To, and body of the email etc
I ideally trying to do it so certain text is bold how would I do this?
also I want a CLICK HERE link that is a hyper link rather than showing the whole website address any ideas?
the reason everything is done through VBA is because due to our security measures I was unable to use an actual template but only a blank one.
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItemFromTemplate(CurrentProject.Path & "\TemplateFiles\EmailToHR.oft")
myitem.Subject = UCase("HR REPORT COMPLETED - " & "[" & [Forms]![FRM_TBLALL_FullDetails].[Form]![LblRef] & "]")
myitem.To = UCase([Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![CmbSupervisor].Column(0))
myitem.display
myitem.body = "The HR Report has now been completed. USBs containing the download report will now be placed in HR Secure storage for your collection under the Ref numbers below." & Chr(13) & Chr(10) & _
"HR Report Reference Numbers:" & Chr(13) & Chr(10) & _
"Working Copy - " & [Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![LblWorkingCopyRef] & Chr(13) & Chr(10) & _ MAKE THE REF NUMBER SHOW BUT AS A HYPER LINK
"Backup Copy - " & [Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![LblBackupCopyRef] & Chr(13) & Chr(10) & _ MAKE THE REF NUMBER SHOW BUT AS A HYPER LINK
"Your USB BitLocker password is:" & Chr(13) & Chr(10) & _
[Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![BitLockerPassword] & Chr(13) & Chr(10)
"If you have any issues / queries please contact the your Local HR hub." & Chr(13) & Chr(10)
I have got some VBA code that opens up outlook, inputs all the subject, To, and body of the email etc
I ideally trying to do it so certain text is bold how would I do this?
also I want a CLICK HERE link that is a hyper link rather than showing the whole website address any ideas?
the reason everything is done through VBA is because due to our security measures I was unable to use an actual template but only a blank one.
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItemFromTemplate(CurrentProject.Path & "\TemplateFiles\EmailToHR.oft")
myitem.Subject = UCase("HR REPORT COMPLETED - " & "[" & [Forms]![FRM_TBLALL_FullDetails].[Form]![LblRef] & "]")
myitem.To = UCase([Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![CmbSupervisor].Column(0))
myitem.display
myitem.body = "The HR Report has now been completed. USBs containing the download report will now be placed in HR Secure storage for your collection under the Ref numbers below." & Chr(13) & Chr(10) & _
"HR Report Reference Numbers:" & Chr(13) & Chr(10) & _
"Working Copy - " & [Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![LblWorkingCopyRef] & Chr(13) & Chr(10) & _ MAKE THE REF NUMBER SHOW BUT AS A HYPER LINK
"Backup Copy - " & [Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![LblBackupCopyRef] & Chr(13) & Chr(10) & _ MAKE THE REF NUMBER SHOW BUT AS A HYPER LINK
"Your USB BitLocker password is:" & Chr(13) & Chr(10) & _
[Forms]![FRM_TBLALL_FullDetails]![SSFRM_TBLALL_StaffDetails].[Form]![BitLockerPassword] & Chr(13) & Chr(10)
"If you have any issues / queries please contact the your Local HR hub." & Chr(13) & Chr(10)