在Outlook2010中有多个账户（邮箱），如何用VBA列出所有的这些账户名称

dsd999 · 发表于 2011-4-7 16:39

添加reference，选outlook

烟雨记忆 · 发表于 2016-3-17 21:12

你好，当多个邮箱时，在新建邮件时，如何获取当前使用的邮箱地址呢

闻启学 · 发表于 2016-4-1 22:41

烟雨记忆发表于 2016-3-17 21:12
你好，当多个邮箱时，在新建邮件时，如何获取当前使用的邮箱地址呢

你所指的是用VBA吗？

zxylmj · 发表于 2016-7-4 10:11

dsd999 发表于 2011-3-30 11:00
试试

Sub ListMailSubject()

版主好，能问一下如何实现自定义outlook的登陆用户（根据用户自己需要的用户名和密码即可实现登陆不同的帐户，而不是从已有的用户中选择），希望自己把要表达的说明白了，谢谢！

hai167 · 发表于 2016-11-15 10:45

dsd999 发表于 2011-3-29 14:39
你的目的是什么？

用某个账户发邮件？

版主，您好，Outlook 2010有多个账户，怎么指定其中某个账户来发送邮件？谢谢！

dl0506 · 发表于 2018-6-20 17:59

hai167 发表于 2016-11-15 10:45
版主，您好，Outlook 2010有多个账户，怎么指定其中某个账户来发送邮件？谢谢！

Dim myOlApp As Object
Dim myMailItem As Outlook.MailItem
Dim i As Integer
Set myOlApp = CreateObject("Outlook.application")
'/ use new item
Set myMailItem = myOlApp.CreateItem(olMailItem)
With myMailItem
For i = 1 To myOlApp.Session.Accounts.Count
If LCase(myOlApp.Session.Accounts.Item(i)) = LCase(Trim(myMailItemInfo.senderAddress)) Then
.SendUsingAccount = myOlApp.Session.Accounts.Item(i)
End If
Next

复制代码

大概这样，自己改改吧

		自动登录	找回密码
密码			免费注册

[求助] 在Outlook2010中有多个账户（邮箱），如何用VBA列出所有的这些账户名称