badnfc.blogg.se

Here's a short summary of the steps to make an email template with variables and send a message based on the template: How to create an email template with variables using the macro If you have more variables, then add a similar block of code for each of them (please see the code parts with the corresponding comments). Please pay attention that there are 4 instances of each placeholder in the code, not counting comments, and all of them should be replaced with your own placeholders. In our sample code, there are two placeholders, and.Be sure to replace this text with the subject of your template. In our case, it's " Your subscription expires soon".

The template is identified by its subject.There are two key points in the code that you should take notice of: The values you enter in the boxes will appear exactly where they should in the message: Mail.HTMLBody = Replace(mail.HTMLBody, "", Value)Įnd If End If 'Replace with the entered value If InStr(mail.HTMLBody, "") > 0 ThenĮnd If End If End If End If Set mail = Nothing End If End Subįor each variable mentioned in the code, a separate input box will be displayed:

Value = InputBox( "Enter percentage discount")Įnd If End If Else 'Replace with the entered value If InStr(mail.HTMLBody, "") > 0 Then Mail.Body = Replace(mail.Body, "", Value)Įnd If End If 'Replace with the entered value If InStr(mail.Body, "") > 0 Then Value = InputBox( "Enter the expiry date") 'Identify the message subject If mail.Subject = "Your subscription expires soon" Then 'Check message format If mail.BodyFormat = OlBodyFormat.olFormatPlain Then 'Replace with the entered value If InStr(mail.Body, "") > 0 Then If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then 'Handle emails only Set m_Inspector = InspectorĮnd If End Sub Private Sub m_Inspector_Activate()ĭim Value As String If TypeOf m_Inspector.CurrentItem Is MailItem Then Set mail = m_Inspector.CurrentItem Set m_Inspectors = Application.InspectorsĮnd Sub Private Sub m_Inspectors_NewInspector( ByVal Inspector As Outlook.Inspector) Private WithEvents m_Inspector As Outlook.Inspector Private WithEvents m_Inspectors As Outlook.Inspectors