VBA 怎么用公邮发送邮件（OutLook）

闻启学

永是晖的人 发表于 2022-2-23 16:06

Sub AddFolders()
     Set myolapp = CreateObject("Outlook.Application")
     Set olApp = Outlook.Application
     
     Set Folder = Application.Session.Accounts.Item("lyhschool@163.com").Session.GetDefaultFolder(olFolderInbox)
'     Set 全部账户 = olApp.GetNamespace("MAPI")
'
'     Set Myinbox = 全部账户.GetDefaultFolder(olFolderInbox)
'     Set Mysentbox = 全部账户.GetDefaultFolder(olFolderSentMail)
     Folder.Folders.Add ("Test")

End Sub

永是晖的人

游乐缘 发表于 2022-2-23 16:30
先用Sub ListAccountNames在立即窗口查看输出的全部账户名称，然后作为OutlookApp.Session.Accounts("账 ...

这个不行，
我用Sub ListAccountNames查看
MyOps.support@accenture.com
还是报错

永是晖的人

闻启学 发表于 2022-3-4 23:01
Sub AddFolders()
     Set myolapp = CreateObject("Outlook.Application")
     Set olApp = Outlook ...

可以解释下哈？

peterlt911

我和楼主是一样的问题。
就是outlook里有两个帐户。
但用
for each oaccount in olapp.application.accounts
只能看到一个帐户。没法选其它的。

世界需要安静

直接用CDO来发邮件好了啊，找公司拿邮件服务器的端口信息。再VBA调用CDO来实现公共邮件发邮件了，这样就不会有behalf of 的问题了。
有需要可以加我QQ:1179381298
我可以分享给你

捞屎人

拿来研究研究