×

Loading...
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

@Florida

I haven’t use VB6 and VBA for couple of years. I can only give you some hints.

deep_blue(BLUE)
本文发表在 rolia.net 枫下论坛1. Use Scripting.FileSystemObject for file processing:
Dim fs
Dim f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
If (Not f Is Nothing) Then
‘ Processing
End If

2. Use EXCEL.APPLICATION for excel automation:
Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject("EXCEL.APPLICATION")
Set objWorkBook = objExcel.Workbooks.Open("C:\test\test.xls")
Set objWorkBook = objExcel.Workbooks.Add ' Create a new work book

3. Send Email using CDO (even without installing the SMTP Service)
Dim objEml
Set objEml = CreateObject("CDO.Message")
objEml.From = testuser@admin.com
objEml.To = sampleuser@admin.com
objEml.Subject = "Test Mail"
objEml.Textbody = "Oops...You got the Mail!!"
objEml.AddAttachment "c:\myFile\book1.xls"
objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SSN"
objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEml.Configuration.Fields.Update
objEml.Send

HTH更多精彩文章及讨论，请光临枫下论坛 rolia.net
(#4082731@0)
Last Updated: 2007-11-26
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / 学科技术讨论 / Help to write a VB code. Negotiate for pay. -icanbe(一年); 2007-11-26 {130} (#4082154@0)
    1. Check the input file available, if yes
    then
    2. Execute an exist EXCEL macro
    then
    3. Send out the email with EXCEL file.
    • VB.NET, VB6, or VBA? -deep_blue(BLUE); 2007-11-26 (#4082444@0)
      • VB6 or VBA is ok. -icanbe(一年); 2007-11-26 (#4082495@0)
    • I haven’t use VB6 and VBA for couple of years. I can only give you some hints. -deep_blue(BLUE); 2007-11-26 {1299} (#4082731@0)
      本文发表在 rolia.net 枫下论坛1. Use Scripting.FileSystemObject for file processing:
      Dim fs
      Dim f
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set f = fs.GetFile(filespec)
      If (Not f Is Nothing) Then
      ‘ Processing
      End If

      2. Use EXCEL.APPLICATION for excel automation:
      Dim objExcel
      Dim objWorkBook
      Set objExcel = CreateObject("EXCEL.APPLICATION")
      Set objWorkBook = objExcel.Workbooks.Open("C:\test\test.xls")
      Set objWorkBook = objExcel.Workbooks.Add ' Create a new work book

      3. Send Email using CDO (even without installing the SMTP Service)
      Dim objEml
      Set objEml = CreateObject("CDO.Message")
      objEml.From = testuser@admin.com
      objEml.To = sampleuser@admin.com
      objEml.Subject = "Test Mail"
      objEml.Textbody = "Oops...You got the Mail!!"
      objEml.AddAttachment "c:\myFile\book1.xls"
      objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SSN"
      objEml.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      objEml.Configuration.Fields.Update
      objEml.Send

      HTH更多精彩文章及讨论，请光临枫下论坛 rolia.net
      • Me too. I do not want to take time to code/test it. -icanbe(一年); 2007-11-26 (#4082820@0)
      • Thanks so much! -icanbe(一年); 2007-11-26 (#4082821@0)
        • 其实deepblue已经基本给出代码了，你自己多试试应该也能做出来。 -holdon(again); 2007-11-26 (#4083547@0)
    • $60. -holdon(again); 2007-11-26 (#4082733@0)
      • PMed you my cell number. Give me a call when you get time. -icanbe(一年); 2007-11-26 (#4082825@0)
        • 抱歉。晚上去打台球了，刚看到你的回帖。pm你我的电话了。 -holdon(again); 2007-11-26 (#4083538@0)
    • why not google? -marsher(LP3A); 2007-11-26 (#4082770@0)

More Topics

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