のVBScript - VBSスクリプトのメールに複数の回線

Question

私はそれらのパラメータを渡し、自動電子メールを送信するには、次のコードを使用します。

Const schema = "http://schemas.microsoft.com/cdo/configuration/" 
Const cdoBasic = 2 
Const cdoSendUsingPort = 2 
Dim oMsg, oConf 
Dim sDateTimeStamp 

Set args = WScript.Arguments 
arg1 = args.Item(0) 


' E-mail properties 
Set oMsg  = CreateObject("CDO.Message") 
oMsg.From  = "test@gmail.com" ' or "Sender Name <from@gmail.com>" 
oMsg.To  = "test2@gmail.com" ' or "Recipient Name <to@gmail.com>" 
oMsg.Subject = "Subject" 
oMsg.TextBody = "Transfer of files failed - Check RUNLOG for error. Julian date : " & arg1 


' GMail SMTP server configuration and authentication info 
Set oConf = oMsg.Configuration 
oConf.Fields(schema & "smtpserver")  = "smtp server" 'server address 
oConf.Fields(schema & "smtpserverport") = 25    'port number 
oConf.Fields(schema & "sendusing")  = cdoSendUsingPort 
oConf.Fields(schema & "smtpauthenticate") = cdoBasic   'authentication type 
oConf.Fields(schema & "smtpusessl")  = False    'use SSL encryption 
oConf.Fields(schema & "sendusername")  = "test3@gmail.com" 'sender username 
oConf.Fields(schema & "sendpassword")  = "password"  'sender password 
oConf.Fields.Update() 

は、私は私が持っている、テキストメッセージ本文に複数行の文字列を追加したいと思います次のように_ concat演算子を使用してみました：

multi = "aaaaaa " & _ 
    "FROM NC301B " & _ 
    "WHERE EDIPROC like 'P30_' " & _ 
    "AND (LF301M > 0) " 

ただし、動作しません。誰かが私に指針を与えることができますか？ありがとうございました。

は、私は、電子メールのエンド体がこれを含めるしたいと思います：

"Transfer of files failed - Check RUNLOG for error." 
"Julian date : " & arg1 
"Line of text" 
"Line of text" 

を& _が、私はまた、その好奇心Mは、これはまた、マルチ裏地なしなんとかある場合。ありがとうございました！それはプラットフォームだとして

Answer 1

だけで文字列の連結文字を追加すると、自動的に改行を挿入していない、あなたは

multi = "aaaaaa " & vbNewLine & _ 
    "FROM NC301B " & vbNewLine & _ 
    "WHERE EDIPROC like 'P30_' " & vbNewLine & _ 
    "AND (LF301M > 0) " 

---

vbNewLine改行を定義するために、定数に建てられたのいずれかを使用する必要が最良のものです特定。しかし、完全性のためには他のものがあります。

---

あなたはまた、HTMLは空白を無視するように動作しません改行を使用して電子メールのためのHTMLBodyを構築したい場合

'--- Named Constants --- 
vbCr    'Carriage Return 
vbLf    'Linefeed 
vbCrLf   'Carriage Return Linefeed 

'--- Character Codes using Chr() --- 
Chr(13)   'Carriage Return 
Chr(10)   'Linefeed 
Chr(13) & Chr(10) 'Carriage Return Linefeed 

は、あなたが改行を強制的に <br />を使用する必要があります。