Outlook外网邮件用内网邮箱转发

最新推荐文章于 2022-12-31 22:35:11 发布

gmaen

最新推荐文章于 2022-12-31 22:35:11 发布

阅读量3.2k

点赞数

分类专栏：网络

本文链接：https://blog.csdn.net/gmaen/article/details/52802199

版权

网络专栏收录该内容

1 篇文章 0 订阅

订阅专栏

建立规则，

“如何处理邮件”对话框选择

“运用脚本”，

脚本如下（vba）：

Sub ForwardWithSendUsingAccount(MyMail As MailItem)
    Dim strID As String
    Dim strAcct As String
    Dim fwdMail As Outlook.MailItem
    
    strID = MyMail.EntryID
    
    Set fwdMail = Application.Session.GetItemFromID(strID).Forward
   
' 内网发送邮箱：aaa@b.local
    strAcct = "aaa@b.local"
    fwdMail.SendUsingAccount = Application.Session.Accounts.Item(strAcct)
' 内网接收邮箱：bbb@b.local
    fwdMail.Recipients.Add ("bbb@b.local")
    fwdMail.Send

    Set fwdMail = Nothing
End Sub

就可以用外网邮箱收到外网邮件后，用内网邮箱在内网转发了。

※宏安全性调到低