outlook怎么把草稿箱里许多封信一起发出去

发布网友发布时间：2022-04-25 23:46

我来回答

共1个回答

热心网友时间：2023-04-22 21:52

很抱歉，暂时微软没有此功能。

但是有备用方法，通过VB来操作。（我是英文系统，中文不清楚）

ALT+F11打开VB编辑器

找到SendDraftsEmails, then click the 'Moudle'文件夹

有insert选项，Mole

Sub SendAllDraftEmails()

Dim objDrafts As Outlook.Items
Dim objDraft As Object
Dim strPrompt As String
Dim nResponse As Integer
Dim i As Long

Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items

If objDrafts.Count > o Then
strPrompt = "Are you sure to send out all the drafts?"
nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")

If nResponse = vbYes Then
For i = objDrafts.Count To 1 Step -1
objDrafts.Item(i).Send
Next
End If

MsgBox ("All Draft Emails Sent")
Else
MsgBox ("No Draft Emails Found!")
End If

End Sub复制进去

这只是一个策略，创建完毕后，你要应用。在你outlook左上角点file（文件？）-Options-QuickAccessToolbar(也不知道翻译成什么了)

搜索下Macros，找到SendAllDraftEmails，添加进去。

这个时候发现outlook左上角就有一个小工具了。

打开你的账户设置，选中账户，然后点你的小工具，按提示操作就可以了。