×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

@Chicago

we use this vbscript to send mail. in dos batch add line ---------------- cscript.exe //nologo f:\backup\send-report.vbs ------------ hope it helps

c1xwy(洪兴罩俺去战斗)
Set objEmail = CreateObject("CDO.Message")
set oFSO = CreateObject("Scripting.FileSystemObject")
set oFile = oFSO.OpenTextFile("report.txt")

objEmail.From = "backups@abc.ca"
objEmail.To = "it@abc.ca"
objEmail.Subject = "Backup Report"
objEmail.Textbody = oFile.ReadAll
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"mail.abc.ca"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

oFile.Close
(#3931910@0)
Last Updated: 2007-9-14
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / 学科技术讨论 / Batch file expert, Please come in -icanbe(一年); 2007-9-10 {283} (#3922495@0)
    I am going to write a batch file or script (.bat) on Windows XP for below functions:

    1. Check two input files available
    2. Run a macro in the MS EXCEL
    3. Send out an email with the attachment

    Please the expert of batch file advise if the batch file can work for my functions.
    • Any reason for you still to prefer to DOS commands? -deep_blue(BLUE); 2007-9-10 (#3922587@0)
      • No special reason. I am not windows programmer, so I am not quite sure what is the best way. -icanbe(一年); 2007-9-10 (#3922683@0)
        • AFAIK, it’s hard to achieve all your goals by DOS commands. -deep_blue(BLUE); 2007-9-10 (#3922799@0)
    • i am not sure about the 2nd task. 1 and 3 are doable. But you might need a 3rd party tool to compose email and access your mail server. -ice(一笑); 2007-9-10 (#3922597@0)
      • Can you help to give me more information? I am not windows programmer. -icanbe(一年); 2007-9-10 (#3922684@0)
    • U need smtp service to sent out mail,in widows system,CDO will beth easiest way.Check MSDN for CDO. -kevin_tor(KFC); 2007-9-10 (#3922691@0)
    • first, you need a script language installed on your pc. I don't think dos command can do this job. -alittleman(凡人); 2007-9-10 (#3922693@0)
    • DOS没戏，纯DOS只有1) 能做。 -bdbs(不多不少); 2007-9-10 (#3922707@0)
    • A PHP or Perl Script will definitely do the job. A simple VB program is also a good choice. -canadiantire(轮胎-El Caro); 2007-9-10 (#3922720@0)
    • 不知道最好的解决方案是什么，但是Perl100%可以实现你的要求 -renjl0810(相信网络,相信Google); 2007-9-10 (#3923179@0)
    • 写个这样的程序也很简单，没有多少语句，我记得有自动运行的程序，就象自动测试一样。 -googlebot(bot); 2007-9-10 (#3923320@0)
    • Thanks very much ALL. I have never used PHP or Perl before, VB is fine to me(10 year ago,haha). -icanbe(一年); 2007-9-11 (#3923695@0)
      • 用vb可以做的 -zxcvb(朝天椒); 2007-9-12 (#3927664@0)
        • I am struggling on sending email function by using a free .dll mailer, please VB expert help. Thanks a lot. -icanbe(一年); 2007-9-13 {668} (#3929789@0)
          I downloaded the mailer from 'http://www.freevbcode.com/ShowCode.ASP?SearchString=vbSendMail.dll&ID=109'.

          As mailer document said,
          'Module Level Declaration (WithEvents optional but recommended)
          Private WithEvents poSendMail as vbSendMail.clsSendMail

          I got a error message 'Compile error:Only valid in object module', red highlight on 'WithEvents'

          After I removed 'WithEvents' and tried to run the program, got a error message 'Compile error:User-defined type not defined',red highlight on 'poSendMail As vbSendMail.clsSendMail'.

          Actually I already copied .dll to C:/WINDOWS, seems like I have trouble to introduce dll into my VB code.
          • Loot at MS component CDONTS.dll. -deep_blue(BLUE); 2007-9-14 (#3930677@0)
    • we use this vbscript to send mail. in dos batch add line ---------------- cscript.exe //nologo f:\backup\send-report.vbs ------------ hope it helps -c1xwy(洪兴罩俺去战斗); 2007-9-14 {720} (#3931910@0)
      Set objEmail = CreateObject("CDO.Message")
      set oFSO = CreateObject("Scripting.FileSystemObject")
      set oFile = oFSO.OpenTextFile("report.txt")

      objEmail.From = "backups@abc.ca"
      objEmail.To = "it@abc.ca"
      objEmail.Subject = "Backup Report"
      objEmail.Textbody = oFile.ReadAll
      objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
      "mail.abc.ca"
      objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      objEmail.Configuration.Fields.Update
      objEmail.Send

      oFile.Close
      • it might work only for MS Exchange Server. correct me if I'm wrong. -bdbs(不多不少); 2007-9-14 (#3931929@0)
        • CDO for Windows 2000 can send messages using the SMTP or Via Exchange server. Either way, SMTP server should be installed in working machine. It looks like that when using Exchange server, SMTP server works as relay. -deep_blue(BLUE); 2007-9-14 (#3931973@0)
        • Yes, you are wrong. you can use CDO.Message as long as you have CDOSYS component ( preinstalled on 2003.) you just need a smtp server ( can be local or remote). -holdon(again); 2007-9-18 (#3940118@0)

More Topics

  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
  • 扔硬币的实验研究
    • 枫下论坛主坛 /  工作学习 /  学科技术讨论