×

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

@Las Vegas

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

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