在excel中用宏实现邮件发送,怎么避免讨厌的警告?

Question

在excel中用宏实现邮件发送,但总有"有一个程序正试图以您的名义自动发送电子邮件。是否允许该操作？如果对此感觉意外，则可能是由于病毒导致，您应选择“否”" 的警告,不知如何解决,用的是Microsoft Outlook 2002 代码如下:Set objMail = objOutlook.CreateItem(olMailItem)With objMail.To = Cells(rowCount, 2).Subject = Cells(rowCount, 3)
.Body = Cells(rowCount, 4).Attachments.Add Trim(Cells(rowCount, 5)).SendEnd With