Question

下面的代码创建（它不发送，因为它们需要可视化验证）几封带有2个附件的电子邮件（大约60个），一个是209KB pptx（我尽可能压缩它）和.xlsb文件（30Kb） - 700kb（视情况而定）。文本是HTML格式，因为我们需要一些突出显示。我认为这比调用模板中的模板更好，但如果错误让我知道，我无法找到任何相关的信息。

问题在于它会生成所有电子邮件并附加所有文件，它会冻结我的Outlook，我必须关闭所有内容并从任务管理器重新启动。我等了一个多小时，看它是否有效，但它只是生成电子邮件，然后冻结。我可以通过我的任务栏看到电子邮件，但我无法选择它们或我的Outlook收件箱。

知道如何过来这个吗？

Sub email()
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim MailMessage As String
Dim CusName As String
Dim Lastrow As Long
Dim i As Long

Application.ScreenUpdating = False

Call getemails


MailMessage = "<HTML><BODY> Hello, <br><br>" _
        & "Attached you will find your trailing 12 month (TTM) margin leak 
report which was discussed on the Best Practices call in August. (Deck from 
meeting attached as well)<br><br><br>" _
        & "<li> Tab 1 shows margin leak by item<br><br>" _
        & "<li>Tab 2 shows margin leak by vendor then by item<br><br>" _
        & "<li>Tab 3 is data tab where you can see all the data<br><br>" _
        & "Tab 1 and 2 includes a filter at the top so you can look at or 
exclude specific PCATs.<br><br>" _
        & "<b>Key definitions of fields on data tab:</b><br><br>" _
        & "<li>Base Price, Base Cost, Base Margin – Price, Cost and Margin 
dollars prior to margin leak<br><br>" _
        & "Thank you,<br><br>" _


Lastrow = Range("A" & rows.Count).End(xlUp).Row
For i = 1 To Lastrow
Set olApp = GetObject(Class:="Outlook.Application")

If olApp Is Nothing Then

Set olApp = CreateObject(Class:="outlook.application")

End If

Set olMail = olApp.CreateItem(0)

With olMail
    .To = Cells(i, 2).Value
    .Subject = Format(MonthName(Month(Now))) & " - Margin Leak - " & Cells(i, 
1).Value
    .display
    .HTMLBody = MailMessage
    .Attachments.Add ("C:\Linking_Files\Best Practices Margin Leak.pptx")
    .Attachments.Add ("C:\Desktop\June\" & Cells(i, 1).Value & ".xlsb")

End With

Set olMail = Nothing
Set olApp = Nothing

Next i
Application.ScreenUpdating = True
End Sub

Answer 1

内存不足问题，当它依赖于您生成的电子邮件数量时。在循环中添加一个save和一个close，以避免内存不足。

对于我的Excel版本（2010），以下工作可以很好地减少内存使用量：

With olMail
   .To = Cells(i, 2).Value
   .Subject = Format(MonthName(Month(Now))) & " - Margin Leak - " & Cells(i, 1).Value
   .display
   .HTMLBody = MailMessage
   .Attachments.Add ("C:\Users\u\Desktop\test.xls")
   .Save
   .Close 1
End With

Excel VBA代码生成电子邮件但崩溃Outlook

1 个答案: