VBS初心者です。 以下のサイトを参考に，特定のフォルダにファイルが追加されたら， 指定のメールアドレスに添付して送信するVBSを作成してみました。 http://plaza.rakuten.co.jp/mscrtf/diary/201206260000/ ちなみに記述を少しだけ変えて， 送信したファイルを削除しないようにしています。 しかしこうしてしまうと，「送信フォルダ」にファイルが追加されると， その新しく追加されたファイルではなく， 前から置いてある別のファイルが送信されてしまいます。 「最新のファイルを添付して送信」することはできないでしょうか？ またファイルを添付してメールを送信することはできるのですが， なぜか送信受信ともに，まったくおなじメールが2通作成されてしまいます。 （2通同時ではなく1通目が届いて30秒後くらいにもう1通届きます）。 あと，受信側メールアドレスをbbb@hotmail.co.jpにし， smtpserver：smtp.live.com smtpserverport：587 とすると 「転送においてサーバーに接続できませんでした」と出てしまいます。 ポート番号を，465や25にしてみましたがだめでした。 どこを直せばいいでしょうか？ 以上の解決策をご教授ください！ コードは以下です。 Dim Fs, strPath, Fl, F, NewFile, NewFileFP, OutF Set Fs = CreateObject("Scripting.FileSystemObject") strPath = "C:\FileSend\送信フォルダ\" NewFile = "" Set Fl = Fs.GetFolder(strPath) For Each F In Fl.Files If F.Name > NewFile Then NewFile = F.Name End If Next NewFileFP = Fl & "\" & NewFile Dim WshShell, BtnCode Set WshShell = WScript.CreateObject("WScript.Shell") Set objShell = CreateObject("Wscript.Shell") Set oMsg = CreateObject("CDO.Message") oMsg.From = "ファイル送信元 <aaa@gmail.com>" '送信元 oMsg.To = "bbb@hotmail.co.jp" '送信先 oMsg.Subject = "ファイルの送信test3" '件名 oMsg.TextBody = "ファイルをお送りします。" 'メール本文 oMsg.AddAttachment NewFileFP '添付 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.googlemail.com" oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "aaa@gmail.com" oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******" oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 oMsg.Configuration.Fields.Update oMsg.Send oMsg.Configuration.Fields.Update oMsg.Send Set OutF = Fs.OpenTextFile("C:\FileSend\test.txt",8) OutF.WriteLine "Date[" & date & "] Time[" & time & "] File[" & NewFile & "]" OutF.Close objShell.Popup "メール送信しました。", 0, "送信完了", 0 Set Fs = Nothing Set Fl = Nothing Set OutF = Nothing 使用しているパソコンは Win7Professional 32bit です。 よろしくお願いいたします！
↧