分类导航

程序问答发布时间：2022-06-02 发布网站：大佬教程 code.js-code.com

大佬教程收集整理的这篇文章主要介绍了VBA 从指定的 Excel 工作表创建几个单独的电子邮件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决VBA 从指定的 Excel 工作表创建几个单独的电子邮件？

开发过程中遇到VBA 从指定的 Excel 工作表创建几个单独的电子邮件的问题如何解决？下面主要结合日常开发的经验，给出你关于VBA 从指定的 Excel 工作表创建几个单独的电子邮件的解决方法建议，希望对你解决VBA 从指定的 Excel 工作表创建几个单独的电子邮件有所启发或帮助；

我正在开发一个 VBA 宏，该宏最终从单个 Excel 工作簿中的指定工作表中获取数据，然后生成包含来自每个单独工作表的数据（表格和文本）的单独电子邮件。

现在，代码将从第一张工作表正确生成第一封电子邮件，然后继续循环浏览剩余的 6 个标签，而无需为每个专用工作表创建额外的电子邮件。我可以通过 MsgBox ActiveSheet.name 检查确认代码正在超出第一个工作表。

我可以极大地帮助解决为什么代码在第一个工作表之后不会为每个工作表创建额外的电子邮件的问题。我在一个单独的模块中利用 Ron DeBruin 的 RangetoHTML 函数。非常感谢提前！！！

Sub ClIEntEvent_Email_Generation()

Dim OutApp As Object
Dim OutMail As Object
Dim count_row,count_col As Integer
Dim Event_table_Data As Range
Dim Event2_table_Data As Range
Dim strl As String,STR2 As String,STR3 As String
Dim WS As Worksheet
Dim I As Integer

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)

For Each WS In ThisWorkbook.Sheets

Ws.Activate

If Ws.name <> "DATA input" And Ws.name <> "FORMATTED DATA table" And Ws.name <> "REP CODE MAPPing table" And Ws.name <> "IDEAS TAB" And Ws.name <> "REFERENCE" Then


count_row = WorksheetFunction.CountA(Ws.Range("A10",Range("a10").End(xlDown)))
count_col = WorksheetFunction.CountA(Ws.Range("A10",Range("a10").End(xlToRight)))

Set Event_table_Data = Ws.Cells.Range(Cells(9,1),Cells(count_row,count_col)) 
Set Event2_table_Data = Sheets("w61").Range(Cells(9,count_col)) 

str1 = "<BODY style=Font-size:12pt;Font-family:Times New Roman>" & _
"Hello " & Range("L3").Value & ",<br><br>The following account(s) Listed below appear to have an upcoming event(s)<br>"
STR2 = "<br> Included are suggestions for an activity which may fit your clIEnt's needs.<br>"
STR3 = "<br> You may place an order,or contact us for alternate IDeas if these don't fit your clIEnt."

On Error Resume Next
    With OutMail
    .To = Ws.Range("l4").Value
    .cc = ""
    .bcc = ""
    .Subject = "Upcoming Event In Your ClIEnts' Account(s)"
    .display
    .HTMLBody = str1 & RangetoHTML(Event_table_Data) & STR2 & RangetoHTML(Event2_table_Data)& STR3 & .HTMLBody
    .SEND
    
    End With
    On Error GoTo 0

Set OutMail = nothing
Set OutApp = nothing

MsgBox ActiveSheet.name ‘Used for tesTing purposes only

End If
Next WS

End Sub