How to call modules in ThisOutlookSession

Question

How to call modules in ThisOutlookSession

Pham Le Anh Tuan (FJP.GE.DFT) 1

Hello everyone,

I want to write a script that combines ThisOutlookSession and module.

For example currently I have the below script in ThisOutlookSession

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)

Dim strMsg As String

Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add ""******@f.com""

xStr1 = ""A""

xStr2 = ""B""

myFwd.HTMLBody = xStr1 & xStr2 & Item.HTMLBody

myFwd.Send

Set myFwd = Nothing

End Sub"

Could you help me how to write in ThisOutlookSession so that

If condition A, run module 1

If condition B, run module 2

Module 1

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)

Dim strMsg As String

Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add ""******@f.com""

xStr1 = ""A1""

xStr2 = ""A2""

myFwd.HTMLBody = xStr1 & xStr2 & Item.HTMLBody

myFwd.Send

Set myFwd = Nothing

End Sub

Module 2

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)

Dim strMsg As String

Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add ""******@f.com""

xStr1 = ""B1""

xStr2 = ""B2""

myFwd.HTMLBody = xStr1 & xStr2 & Item.HTMLBody

myFwd.Send

Set myFwd = Nothing

End Sub

Viorel 122.6K Reputation points

2022-03-04T18:48:21.647+00:00

Did you try something like this: If condition A Then Module1.AutoForwardAllSentItems myFwd?

1 answer

Your answer

Viorel 122.6K Reputation points

2022-03-04T18:48:21.647+00:00

Did you try something like this: If condition A Then Module1.AutoForwardAllSentItems myFwd?

Answer 1

Thank you. I will try it.

I tried to rewrite my code as below
Case 1: If the mail is sent TO ******@f.com -> AutoForward To ******@x.com
Case 2: If the mail is sent TO ******@f.com ******@f.com ******@f.com -> AutoForward To ******@x.com ******@x.com

Could you please help me how to code in Case 2: If the mail is sent TO ******@f.com ******@f.com ******@f.com -> AutoForward To ******@x.com ******@x.com

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)

Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward

Dim xStr1 As String
Dim xStr2 As String
Dim Recipient As String

Dim recips As Outlook.Recipients
Dim recip As Outlook.Recipient
Dim pa As Outlook.PropertyAccessor
Const PR_SMTP_ADDRESS As String = _
"http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
Set recips = mail.Recipients
For Each recip In recips

'Case 1: If the mail is sent TO ******@x.com'
If recip = "******@x.com" Then
    Recipient = "******@f.com"
    xStr1 = "<p>A1</p>" 
    xStr2 = "<p>A2</p>"

'Case 2: If the mail is sent TO ******@x.com ******@x.com ******@x.com'
ElseIf recip = "******@x.com" "******@x.com" "******@x.com" Then
    Recipient = "@f.com"
    Recipient = "******@f.com"
    Recipient = "******@f.com"
    xStr1 = "<p>B1</p>" 
    xStr2 = "<p>B2</p>"
Else
    MsgBox "None of the conditions was true, abort."
    Exit Sub
End If

myFwd.Send
Set myFwd = Nothing

Share via

How to call modules in ThisOutlookSession

1 answer

Your answer