问题描述
DimappAsNewOutlook.ApplicationDimItemAsOutlook.MailItem=app.CreateItem(0)TryItem.To="123@126.com"Item.Subject=subjectItem.Body=bodyIfattachName<>""ThenItem.Attachments.Add(attachName)EndIfItem.Send()CatchexAsExceptionMsgBox(ex.Message)Finallyapp.quit()EndEndTry上面这段程序生成的exe,直接双击打开可以发邮件,但是以管理员运行却报错这是为什么呢?
解决方案
时间: 2024-12-21 23:03:21