VBSでOutlookを使ってメール送信

前提

ここに質問の内容を詳しく書いてください。
（例）
VBSで自動手配完了連絡メール連絡システムを作っています。
PC起動時にあるフォルダのtxtを参照してそれぞれに連絡するシステムになります。

実現したいこと

・あるフォルダのtxtファイルを参照する
・txtごとにメールを作成し、送信

発生している問題・エラーメッセージ

自分のメルアドで送付すると仕事上のメールなのか
自動連絡なのかわかりにくいと連絡があり、専用メルアドを作成
専用メルアドで送付したいが、以下の一文ではエラーが発生
objMail.SendUsingAccount = Session.Accounts(“アカウント名（標準設定の場合：メールアドレス）”)
エラーメッセージ
文字が正しくありません。

該当のソースコード

Set objFSy = CreateObject("Scripting.FileSystemObject")'ファイルシステムオブジェクト作成
Set objApp = CreateObject("Outlook.Application")
Set objFolder = objFSy.GetFolder("フォルダURL")

'FolderオブジェクトのFilesプロパティからFileオブジェクトを取得
For Each objFile In objFolder.Files
If objFSy.GetExtensionName(objFile.Name) = "txt" Then
'textファイルから読み込み
Set objText = objFSy.OpenTextFile(objFile.Path)' ファイルオープン
Set objMail = objApp.CreateItem(0)
objMail.SendUsingAccount = Session.Accounts(“XXX@XXX.com”)
With objMail
.to = Replace(objFile.Name, ".txt", "")'宛先
.BodyFormat = 1'書式(1:テキスト形式、2:HTML形式)
.Subject = "手配完了連絡（" & Date() & "）"'件名
.Body = Title & vbCrLf & objText.ReadAll' 本文テキストを全行読み込む
End With
objMail.Send'送信
objText.Close' ファイルクローズ
objFile.Delete
End If
Next