Outlook 2003から複数の下書きを送信する方法

Question

Outlookは、複数の下書きを同時に送信させません。見通し内で一度に複数の下書きを送信する簡単な方法はありますか？それぞれ個別に開く必要はありませんか？

私が読んだことから見て、試しました。これは見通しそのものからは不可能で、プログラミングソリューション、おそらくVBスクリプトの一部が必要になるでしょう。

Answer 1

okが、私はそれをしないVBのビットが見つかりました：

`Public Sub SendDrafts() 

Dim lDraftItem As Long 
Dim myOutlook As Outlook.Application 
Dim myNameSpace As Outlook.NameSpace 
Dim myFolders As Outlook.Folders 
Dim myDraftsFolder As Outlook.MAPIFolder 

'Send all items in the "Drafts" folder that have a "To" address filled 
'in. 

'Setup Outlook 

Set myOutlook = Outlook.Application 
Set myNameSpace = myOutlook.GetNamespace("MAPI") 
Set myFolders = myNameSpace.Folders 


'Set Draft Folder. This will need modification based on where it's 
'being run. 

Set myDraftsFolder = myFolders("$MAILBOX").Folders("$DRAFTS") 

'Loop through all Draft Items 

For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1 

'Check for "To" address and only send if "To" is filled in. 

If Len(Trim(myDraftsFolder.Items.Item(lDraftItem).To)) > 0 Then 

'Send Item 

myDraftsFolder.Items.Item(lDraftItem).Send 

End If 
Next lDraftItem 

'Clean-up 

Set myDraftsFolder = Nothing 
Set myNameSpace = Nothing 
Set myOutlook = Nothing 

End Sub 

ちょうどあなたのメールボックス名との下書きフォルダの名前で$ DRAFTSで$メールボックスを交換してください。 これは個人的にテストされており、正常に動作しているようです。著者の答えから

Answer 2

はい、そうするためにマクロまたはアドインを書くことができます。

Answer 3

非常に異なっていないが、それでも：

Sub SendDrafts() 
    Dim ns As NameSpace 
    Dim drafts As MAPIFolder 
    Dim Item As MailItem 

    Set ns = Application.GetNamespace("MAPI") 
    Set drafts = ns.GetDefaultFolder(olFolderDrafts) ' 16 
    For Each Item In drafts.Items 
    'Item.Send 
    Next 
End Sub 

それは本当にあなたのデフォルトのドラフトフォルダ内のすべてのメールを送信よう注意してください。送信ラインのコメントを外した後。 Dim Outlookマクロエディタの内部でオートコンプリートを許可する行。

Answer 4

私はOutlook 2000でテストした便利なバージョン、：あなたが送信トレイに送りたい

ドラッグメールを。彼らは自動的に送信されますが、以前の投稿のこのバージョンを使用してそれらを送信されません。

Sub SendOutbox() 
    Dim ns As NameSpace 
    Dim outbox As MAPIFolder 
    Dim Item As MailItem 

    Set ns = Application.GetNamespace("MAPI") 
    Set outbox = ns.GetDefaultFolder(olFolderOutbox) ' 16 
    For Each Item In outbox.Items 
    Item.Send 
    Next 
End Sub 

そのように、あなたが選択することができます。