15.htm

vb功能实例介绍。详细、很好的实例说明。

<p>把Outlook信箱中的附件另存为   </p>
<p>作者：Lewis Cornick</p>
<p>邮箱：[e-mail]</p>
<p>网址：http://www.geocities.com/SiliconValley/Haven/1768</p>
<p></p>
<p></p>
<p>'------------------------------------------------------</p>
<p>'Author: Lewis Cornick</p>
<p>'Date　 : 04/22/98</p>
<p>'http://www.geocities.com/SiliconValley/Haven/1768</p>
<p>'E-Mail:[e-mail]</p>
<p></p>
<p>'Description: To be used in 'stripping' attachments from </p>
<p>'e-mails in your inbox and save them to a hardcoded path.</p>
<p>'------------------------------------------------------</p>
<p>'This bit of code will strip attachments and save them into the path</p>
<p>'"C:\temp\Outlook Attachments", it has no error handling so be warned!</p>
<p>'Code starts (placed under a command button.)</p>
<p></p>
<p>'这点代码将会找到Outlook信箱中的附件，并把它们保存至</p>
<p>'"C:\temp\Outlook Attachments"，它没有错误处理所以请小心使用！</p>
<p>'以下是代码（放在一个Command按钮下面）</p>
<p></p>
<p>Dim oApp As Outlook.Application</p>
<p>Dim oNameSpace As NameSpace</p>
<p>Dim oFolder As MAPIFolder</p>
<p>Dim oMailItem As Object</p>
<p>Dim sMessage As String</p>
<p></p>
<p>Set oApp = New Outlook.Application</p>
<p>Set oNameSpace = oApp.GetNamespace("MAPI")</p>
<p>Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)</p>
<p></p>
<p>　　For Each oMailItem In oFolder.Items</p>
<p>　　　　With oMailItem</p>
<p>　　　　　　If oMailItem.Attachments.Count > 0 Then '?</p>
<p>　　　　　　　 oMailItem.Attachments.Item(1).SaveAsFile "C:\Temp\Outlook</p>
<p>Attachments\" & oMailItem.Attachments.Item(1).filename</p>
<p>　　　　　　　 MsgBox oMailItem.Attachments.Item(1).DisplayName & " was</p>
<p>saved as " & oMailItem.Attachments.Item(1).filename</p>
<p>　　　　　　End If</p>
<p>　　　　End With</p>
<p>　　Next oMailItem</p>
<p></p>
<p>Set oMailItem = Nothing</p>
<p>Set oFolder = Nothing</p>
<p>Set oNameSpace = Nothing</p>
<p>Set oApp = Nothing</p>
<p> </p>