怎样提高用OUTLOOK 发邮件的速度呢??

sunyujie

如题?怎样提高用OUTLOOK 发邮件的速度呢??有800多个邮件.;..发工资条..

aaaaabbbbb

请描述清楚题目.

sunyujie

能不能把有件都放在草稿箱所在目录下,然后一次发放??

avsever

如果将信都做好了放在草稿中，你可以用下面的代码试试。
Sub sendDrafts()
Dim onMAPI As Outlook.NameSpace
Dim OutD As Outlook.MAPIFolder
Dim maili As Outlook.MailItem
Dim OutItems As Outlook.Items

Set onMAPI = Outlook.Application.GetNamespace("MAPI")

Set OutD = onMAPI.GetDefaultFolder(olFolderDrafts)
Set OutItems = OutD.Items
n = OutItems.Count
For i = 1 To n
    Set maili = OutItems.Item(n - i + 1)
    If maili.Recipients.Count > 0 Then
        maili.Send
    End If
Next
MsgBox "发送完成！"
End Sub

[ 本帖最后由 avsever 于 2009-5-2 04:38 编辑 ]

smart8006

这个 很有新意  支持

sunyujie

关键是如何用程序放在草稿箱里.

leaveoff

用邮件合并功能啊

avsever

你可以搜索一下，自动生成信件的帖子应该有很多。
如果有你已经有了信，你可以粘贴到草稿中。