“Office软件辅助” VBA能否支持outlook

功能建议 · 187 次浏览
bluefoam 创建于 2024-11-02 04:10

“Office软件辅助”目前VBA支持excel,ppt,word. 能否支持Outlook? 希望从outlook中能够获取邮件信息后结合其他笔记工具构造TodoList

bluefoam 最后更新于 2024/11/2

回复内容
CL 2024-11-02 11:29
#1

很久不用outlook,里面可以像word一样用vba么? 

另外即使支持vba,每次执行动作只能返回一个内容,能否满足需求呢?

CL 最后更新于 2024-11-02 11:29
bluefoam 2024-11-02 18:19
#2

谢谢大佬回复,outlook可以使用VBA的。我贴一段我的outlook内可执行的VBA代码,您看看是不是可以在quicker中调用VBA实现。 粘贴板doClipboard部分可以用来和quicker交互:


Sub CreateGUIDLink4SelectedItem()

    Dim objMail As Outlook.mailItem

    Dim doClipboard As New DataObject

    'One and ONLY one message must be selected

    If Application.ActiveExplorer.Selection.Count <> 1 Then

        MsgBox ("Select one and ONLY one message.")

        Exit Sub

    End If

    Set objMail = Application.ActiveExplorer.Selection.Item(1)

'Markdown link

    doClipboard.SetText "[MESSAGE: " + objMail.Subject + " (" + objMail.SenderName + ")](outlook:" + objMail.EntryID + ")"

    doClipboard.PutInClipboard

    Debug.Print doClipboard.GetText

    Set objMail = Nothing

    Set doClipboard = Nothing

End Sub




bluefoam 最后更新于 2024-11-02 18:26
回复主贴