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

Question

下面的这段代码创建了（大约60个）带有2个附件的电子邮件（由于需要视觉验证而没有发送），一个电子邮件是209KB pptx（我尽可能将其压缩）和一个.xlsb文件（30Kb-700kb，具体取决于）。 文本为HTML格式只是因为我们需要突出显示。 我认为这比在前景之外调用模板要好，但是如果那是错误的，请告诉我，我找不到有关此信息。

问题是，它将生成所有电子邮件并附加所有文件，同时冻结了我的视线，以至于我必须关闭所有内容并从任务管理器重新启动。 我已经等待了一个多小时，看看它是否有效，但是它只会生成电子邮件，然后冻结。 我可以通过任务栏看到电子邮件，但是无法选择它们或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

内存不足问题，取决于您生成的电子邮件数量。 在循环中添加保存和结束操作，以避免内存不足。

对于我的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 个解决方案

解决方案1
1 已采纳 2018-06-13 14:12:21

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

问题描述

1 个解决方案

解决方案1 1 已采纳 2018-06-13 14:12:21

解决方案1
1 已采纳 2018-06-13 14:12:21