excel 发送Outlook 邮件提示 287 错误

1131163642

Sub SendEmail()
    Dim Mail As Outlook.Application
    Set Mail = New Outlook.Application
    Dim objMail As Outlook.MailItem
    Set objMail = Mail.CreateItem(olMailItem)
   
    With objMail
        .Subject = "My Test Mail"  '主题
        .To = "shuaifei_ht@163.com" '收件人
        .BodyFormat = olFormatHTML
        .HTMLBody = "<h2>My First Mail</h2>" '正文
        .Send
    End With
End Sub

1131163642

.Send 改为 .display 或者 .save 都能正常运行。
但是改为.send 则就提示 运行时错误。
求大佬帮忙看一下。
已经引用了MS Outlook 16 library

zpy2

1131163642 发表于 2021-12-30 10:26
.Send 改为 .display 或者 .save 都能正常运行。
但是改为.send 则就提示 运行时错误。
求大佬帮忙看一下 ...

.Send 改为 .display 或者 .save 都能正常运行。

猜想可能是电脑安全性的问题

1131163642

zpy2 发表于 2021-12-30 12:35
.Send 改为 .display 或者 .save 都能正常运行。

猜想可能是电脑安全性的问题

对的，我想也是这样。outlook宏无法打开。

使用powershell 调用API也是不行。
但是直接使用outlook服务器是可以发送的，

zpy2

1131163642 发表于 2021-12-30 18:00
对的，我想也是这样。outlook宏无法打开。

使用powershell 调用API也是不行。

=webservice("http://e.anyoupin.cn/eh3/?send~smtp.126.com~zpy1_126@126.com~邮箱密码~zpy1@citiz.net~主题~邮件内容")
我现在是用这个公式，在服务器上发的。

//http://e.anyoupin.cn/eh3/?send~smtp地址~发件人邮箱~邮箱密码~收件人邮箱地址~主题~邮件内容

1131163642

有其他的方法可以实现么

zpy2

1131163642 发表于 2021-12-31 10:04
有其他的方法可以实现么

我现在用这个

1131163642

zpy2 发表于 2021-12-31 10:39
我现在用这个

这应该不行
所有的数据都是从excel表中获取
可以先放到草稿箱 然后手动发出
这样比较麻烦

Office

真心没看看懂webservice函数

是将所有A客户的条目作为一个附件发给A客户。

opiona

1131163642 发表于 2021-12-31 10:04
有其他的方法可以实现么

发送邮件的DLL 不需要Outlook 支持32和64位系统
https://club.excelhome.net/thread-1629293-1-1.html