Si déclaration pour plusieurs conditions

Question

Je travaille sur un script qui transmet les mails IF destinataire, l'expéditeur et le sujet ont raison. Par ex.

Le courrier est envoyé si toutes sont vraies:

• De: OneGuy@mail.com
• Pour: OtherGuy@mail.com
• Sujet: Hallo Or Salut

Cette est mon script actuel

Public Sub FW(olItem As Outlook.MailItem) 

Dim Msg As Outlook.MailItem 
Set Msg = Item 

    If Msg.SenderEmailAddress = "OneGuy@mail.com" Then 
    ElseIf Msg.To = "OtherGuy@mail.com" Then 
    ElseIf Msg.Subject = "Hallo" Then 
    ElseIf Msg.Subject = "Hi" Then 

     Dim olForward As Outlook.MailItem 
     Set olForward = olItem.Forward 

     With olForward 
      'Stuff happens here that work properly 
     End With 

    End If  

    '// Clean up 
    Set olItem = Nothing 
    Set olForward = Nothing 
    Set Msg = Nothing 
End Sub 

Answer 1

If Msg.SenderEmailAddress = "OneGuy@mail.com" AND Msg.To = "OtherGuy@mail.com" AND Msg.Subject = "Hallo" AND Msg.Subject = "Hi" Then