[英]Excel/Macro/Email. How do I remove loop function from this VBA code & run each row individually?
這是我第一次在這里提問，真的很感激我如何手動刪除循環並逐行運行宏？
Sub Email()
Dim olApp As Object
Dim olMail As Object
Dim olRecip As Object
Dim iRow As Long
Dim Recip As String
Dim Subject As String
iRow = 2
Set olApp = CreateObject("Outlook.Application")
Do Until IsEmpty(Cells(iRow, 1))
Recip = Cells(iRow, 1).Value
Subject = Cells(iRow, 3).Value
Set olMail = olApp.CreateItem(0)
With olMail
Set olRecip = .Recipients.Add(Recip)
.Display
.CC = ""
.Subject = ""
.HTMLbody = "<html><body><p>Dear " & Cells(iRow, 2).Value & "," & "<br>" & "<br>" & "summary " & Cells(iRow, 3).Value & " summary" & Cells(iRow, 4).Value & "summary" & "<br>" & "<br>" & "summary" & "<br>" & "<br>" & "conclusion" & .HTMLbody
olRecip.Resolve
.Display
End With
iRow = iRow + 1
Loop
Set olApp = Nothing
Exit Sub
End Sub
評論你的代碼
Sub Email() Dim olApp As Object Dim olMail As Object Dim olRecip As Object Dim iRow As Long Dim Recip As String Dim Subject As String
iRow = 2
Set olApp = CreateObject("Outlook.Application")
'If column A has more the 1 email, will send/display email 1 at a time
'Do Until IsEmpty(Cells(iRow, 1))
Recip = Cells(iRow, 1).Value
Subject = Cells(iRow, 3).Value
Set olMail = olApp.CreateItem(0)
With olMail
Set olRecip = .Recipients.Add(Recip)
.Display
.CC = ""
.Subject = ""
.HTMLbody = "<html><body><p>Dear " & Cells(iRow, 2).Value & "," & "<br>" & "<br>" & "summary " & Cells(iRow, 3).Value & " summary" & Cells(iRow, 4).Value & "summary" & "<br>" & "<br>" & "summary" & "<br>" & "<br>" & "conclusion" & .HTMLbody
olRecip.Resolve
.Display
End With
iRow = iRow + 1
'Msgbox to show email was sent or failed
'Loop
Set olApp = Nothing
Exit Sub
End Sub '
你在調試嗎？ 我猜你想要做的是按 F8 進入代碼。
如何遍歷excel數據集中行的“塊”而不是逐行遍歷（VBA）？
[英]How to loop through “blocks” of rows in excel dataset instead of each row individually (VBA)?
每個工作表循環的Excel VBA（在多個工作表上運行相同的VBA宏代碼）
[英]Excel VBA For Each Worksheet Loop (Run Same VBA Macro Code On Multiple Sheets)
如何為30種不同的Excel工作簿運行相同的宏，VBA代碼？
[英]How do I run the same macro, VBA-code for 30 different excel workbooks?
如何循環一個Excel VBA宏，該宏每次在列中向下移動時都會調用另一個宏
[英]How can I loop an Excel VBA macro that will call another macro each time it moves down a column
如何在VBA中為每個循環獲取索引（使用Excel編程）？
[英]How do I get the index in a VBA For Each Loop (programming with Excel)?
聲明:本站的技術帖子網頁，遵循CC BY-SA 4.0協議，如果您需要轉載，請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.