Outlook 2003에서 여러 초안을 보내는 방법

Question

Outlook에서는 여러 초안을 동시에 보내지 않습니다. 한 번에 여러 개의 임시 보관함을 보낼 수있는 쉬운 방법이 있습니까? 개별적으로 하나씩 열지 않고도?

내가 읽은 것으로부터 보았고 시도했습니다. 이것은 Outlook 자체에서 가능하지 않으므로 프로그래밍 솔루션이 필요합니다. 아마도 일부 VB 스크립트

Answer 1

좋아, 나는 그것을하지 VB의 비트를 발견했다. 이것은 개인적으로 테스트되었으며 정상적으로 작동하는 것 같습니다. 여전히 저자의 대답은 다를 수 있지만

Answer 2

예, 매크로 또는 추가 기능을 작성하여 작성할 수 있습니다.

`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 

그냥 사서함 이름과 $ 초안 폴더의 이름으로 임시 보관함에 $ 사서함을 대체 :

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 

그런 식으로 선택을 할 수 있습니다.