Outlook VBA教程:Remove方法

应用于 Actions、Attachments、Folders、Items、ItemProperties、Pages、Recipients 和 UserProperties对象的 Remove方法。

删除上述某个集合中的一个对象。

expression.Remove(Index)

expression  必选。该表达式返回上述集合对象之一。

Index  必选,Long 类型。集合中对象的索引值。

应用于 Links、OutlookBarGroups、OutlookBarShortcuts、PropertyPages、Reminders 和 Views 对象的 Remove方法。

从指定列表删除某个对象。

expression.Remove(Index)

expression  必选。该表达式返回上述对象之一。

Index  必选,Variant 类型。列表中对象的名称或序数。

 

VBA示例

应用于 Actions、Attachments、Folders、Items、ItemProperties、Pages、Recipients 和 UserProperties对象时。

本 Visual Basic for Applications 示例在将转发的邮件发送给 Jeff Smith 之前,使用 Remove方法删除其中的所有附件。


    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.ActiveInspector.CurrentItem.Forward
    Set myAttachments = myItem.Attachments
    While myAttachments.Count > 0
        myAttachments.Remove 1
    Wend
    myItem.Recipients.Add "Jeff Smith"
    myItem.Send

如果使用 VBScript,则不必创建Application对象。本示例说明如何使用 VBScript 执行相同任务。


    Set myItem = Application.ActiveInspector.CurrentItem.Forward
    Set myAttachments = myItem.Attachments
    While myAttachments.Count > 0
        myAttachments.Remove 1
    Wend
    myItem.Recipients.Add "Jeff Smith"
    myItem.Send

应用于 Links、OutlookBarGroups、OutlookBarShortcuts、PropertyPages、Reminders 和 Views对象时。

以下示例从Views集合中删除View对象。


Sub DeleteView()
'Deletes a view from the collection
    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objView As View
    Dim strName As String
  
    strName = "New Icon View"
    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
  
    For Each objView In objViews
        If objView.Name = strName Then
            objViews.Remove (strName)
        End If
    Next objView
End Sub

上页:Outlook VBA教程:Quit方法 下页:Outlook VBA教程:RemoveMember方法

Outlook VBA教程:Remove方法:相关链接

Outlook VBA教程:RemoveMember方法 Outlook VBA教程:RemoveMembers方法
Outlook VBA教程:RemoveStore方法 Outlook VBA教程:Reply方法
Outlook VBA教程:ReplyAll方法 Outlook VBA教程:Reset方法
Outlook VBA教程:ResetColumns方法 Outlook VBA教程:Resolve方法
Outlook VBA教程:ResolveAll方法 Outlook VBA教程:Respond方法
Outlook VBA教程:Restrict方法 Outlook VBA教程:Save方法
Outlook VBA教程:SaveAs方法 Outlook VBA教程:SaveAsFile方法
Outlook VBA教程:Send方法 Outlook VBA教程:SetColumns方法
Outlook VBA教程:SetCurrentFormPage方法 Outlook VBA教程:SetIcon方法
Outlook VBA教程:ShowCategoriesDialog方法 Outlook VBA教程:ShowFormPage方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号