當我使用下面的代碼發送電子郵件時，它會發送電子郵件的先前版本。它不會重置。
Private Sub CommandButton16_Click()
Dim EmailApp As Outlook.Application
Dim EmailItem As Outlook.MailItem
Set EmailApp = New Outlook.Application
Dim EmailAddress As String
Dim EmpName As String
Dim ProvName As String
Dim PayMonth As String
Dim Filename As String
Dim Filepath As String
Dim FileExists As String
Dim Subject As String
Dim Source As String
Dim AltEmail As String
Dim ExtraMsg As String
Dim i As Long
'Loop through and get email address and names
i = 2
PayMonth = TextBox6.Value
AltEmail = TextBox7.Value
ExtraMsg = TextBox8.Value
Do While Worksheets("Provider Template").Cells(i, 1).Value <> ""
ProvName = Worksheets("Provider Template").Cells(i, 1).Value
EmpName = Worksheets("Provider Template").Cells(i, 11).Value
If AltEmail = "" Then EmailAddress = Worksheets("Provider Template").Cells(i, 20).Value Else EmailAddress = AltEmail
Filename = ProvName & " " & PayMonth
Filepath = ThisWorkbook.Path & "\Remittance PDFs\"
Source = Filepath & Filename & ".pdf"
Subject = "Monthly Remittance Advice for" & " " & ProvName & " - " & PayMonth
FileExists = Dir(Source)
If FileExists = "" Then GoTo Lastline Else GoTo SendEmail
SendEmail:
Set EmailItem = EmailApp.CreateItem(olMailItem)
With EmailItem
EmailItem.To = EmailAddress
EmailItem.CC = "******************"
EmailItem.Subject = Subject
EmailItem.HTMLBody = "<html><body><p>Here is the tax invoice and calculation sheet for " & ProvName & ".</p><p>" & ExtraMsg & "</p><p>Kind regards, ******</p><p>****** ******</p><p>Practice Manager</p></body></html>"
EmailItem.Attachments.Add Source
EmailItem.Send
End With
GoTo Lastline
Lastline:
i = i 1
Loop
End Sub
我認為這是代碼中的問題，然后我在另一臺機器上運行它并發送了新的電子郵件。我將更新的版本上傳到了一臺作業機器上，舊的電子郵件又開始了，就像某處有這些東西的快取一樣。
uj5u.com熱心網友回復：
下次您可以嘗試在 Outlook 中檢查您的“已發送”框。Outlook 可能沒有發送它們（離線或其他原因），它們仍然作為草稿存在。這可能是他們后來發送的原因。
并調整：
With EmailItem .To = EmailAddress
你可以忽略它；
GoTo Lastline Lastline:
uj5u.com熱心網友回復：
這些電子郵件在 Outlook 發件箱中作為草稿被隔離。發送命令似乎一次發送幾個，但總是舊版本。我將進一步測驗，但 email.display 目前是一種解決方法，我更喜歡長期使用它。我將在早上編輯其余代碼，并檢查現在發送是否可以在沒有來自 Outlook 端的輸入的情況下作業，因為發件箱已暢通。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/528567.html
標籤：擅长vba外表办公自动化