Usunięcie kontaktu lub poczty

[OShon]

Witaj Michu
Chodzi mi o to jaką procedurą da się usunąć pocztę czy kontakt, tak aby nie pojawił się on w Koszu lub z tego koszta bez komunikatu potwierdzającego go usunąć.

Pytam bo łatwiej mi zapisać nowy kontakt (dzięki informacji odebranych z XMLa) a poprzednika o takim samym kluczu w całości skasować (umieszczając w koszu), niż szukać różnic aby zamienić dane, w którym miejscu nastąpiła zmiana tego kontaktu, spotkania czy wiadomości.

[michu]

Chodzi mi o to jaką procedurą da się usunąć pocztę czy kontakt, tak aby nie pojawił się on w Koszu lub z tego koszta bez komunikatu potwierdzającego go usunąć.

Z tego co wiem, to nie ma takiej możliwości. Jeśli usuwasz element przez Outlook API, to zawsze pojawia się w koszu.

[Shon Oskar]

No to może jest procedurka usunięcia zawartości kosza
(na kształt: "Opróżnij folder Elementy usunięte")

[michu]

Żeby opróżnić folder DeletedItems, musisz usuwać pojedynczo każdą wiadomość:

Kod: Zaznacz cały

    Set objDelItemsFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDeletedItems)
    Set objItems = objDelItemsFolder.Items
    For intX = objItems.Count To 1 Step -1
        Set objItem = objItems.Item(intX)
        'Permanently delete
        objItem.Delete
    Next


[Shon Oskar]

Michu a jak wsadzić do tego
aby procedura kasowała tylko wiadomości z wypełnionym polem
.BillingInformation <> ""

[michu]

Najprościej chyba tak:

Kod: Zaznacz cały

On Error Resume Next
Set objDelItemsFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDeletedItems)
Set objItems = objDelItemsFolder.Items
For intX = objItems.Count To 1 Step -1
    Set objItem = objItems.Item(intX)
    If objItem.BillingInformation <> "" Then
        'Permanently delete
        objItem.Delete
    End If
Next


Ale nie testowałem. On Error Resume Next może być tutaj ważne bo niektóre elementy mogą nie mieć właściwości BillingInformation.

[Shon Oskar]

Działa działa - coś mnie zaćmiło i nie zauważyłem że
Set objItems odnosi cię do Items

bardzo dziękuje ;]