×

Loading...
Ad by
  • 技多不压身，工到自然成：安省技工证书特训班，点击咨询报名！
Ad by
  • 技多不压身，工到自然成：安省技工证书特训班，点击咨询报名！

@Calgary

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

  • 现在社区游泳池招救生员巡逻，过一会还要不停的点人头，这工作是否很快就被AI代替了，装一个摄像头后面是AI处理系统，这样只招一个等着救人就行了，人头沉下水一定时间立马强光照射，还可以分析水下人的状况来判断是否溺水等
  • 新冠疫苗引发心肌炎? 最新研究这样看
  • 这道几何题有解吗?
  • SAM 2 Demo
  • 如何在 AWS EC2 实例上构建 WordPress 应用程序?
    • 枫下论坛主坛 /  工作学习 /  学科技术讨论