VBScript - Utilisation des instructions IF dans un script de messagerie?

Question

J'ai vraiment besoin de conseils rapides ici. J'ai le script VBScript qui envoie un e-mail. Et je veux faire plusieurs contrôles pour voir si un attribut est vrai et si c'est le cas, écrire une ligne supplémentaire dans le courrier.

Comment est-ce que je peux faire ceci? Cela fait partie du script:

obMessage.HTMLBody = ""_ 
     & "<MENU>"_ 
     & "<LI type = square>This is a line</i>."_ 

Je veux quelque chose qui ressemble à ceci:

obMessage.HTMLBody = ""_ 
     & "<MENU>"_ 
    If statement1 = true Then 
     & "<LI type = square>This is an additional line</i>."_ 
    end if 

De préférence, certaines déclarations peuvent être faites de sélection? Cela ne me dérange pas vraiment ce que le code ressemble, je veux juste que cela fonctionne le plus tôt possible :)

Answer 1

Il ressemblera à du code spaghetti, peu importe comment vous le faites. C'est l'une de l'approche la plus directe:

obMessage.HTMLBody = & "<MENU>" 

if statement1 then 
    obMessage.HTMLBody = obMessage.HTMLBody & "<LI type=""square"">This is a line</LI>." 
end if 

if statement2 then 
    obMessage.HTMLBody = obMessage.HTMLBody & "<LI type=""square"">This is another line</LI>." 
end if 

Cependant, je vous suggère de concaténer les lignes à une chaîne temporaire, l'assigner la chaîne résultante à obMessage.HTMLBody, tels que:

Dim Foo 
Foo = "<MENU>" 

if statement1 then 
    Foo = Foo & "<LI type=""square"">This is a line</LI>." 
end if 

. 
. 
. 

obMessage.HTMLBody = Foo 

Answer 2

Quelque chose comme:

obMessage.HTMLBody = "Begin Text" & _ 
IIf(statement1 = true, "<LI type = square>This is an additional line</i>.", "") & _ 
"Further text" 

devrait fonctionner ok.