Tüm iletileri, bir kaynak hesabıyla eşleşen belirli bir klasörden farklı bir klasöre taşıyan Outlook 2011 için Applescript

Başlığın belirttiği gibi, "Bir kaynak hesabıyla eşleşen belirli bir klasördeki tüm mesajları farklı bir klasöre taşıyan tüm iletileri Outlook 2011 için bir Applescript ile Yardım."

Bu nedenle, değişim hesabımdaki tüm yeni postaları Bilgisayarımdaki bir alt klasördeki "Gelen Kutusu" na taşıyan bir "kural" var. Bu alt klasör gelen kutusundaki öğeleri silerken, Bilgisayarımdaki "Silinmiş Öğeler" bölümüne giriyor. "Silinmiş Öğeler" için "Gelen Kutusu" alt klasörümle aynı yerde bir alt klasör yaptım ve Bilgisayarımdaki ana Silinmiş Öğelere gidip mesajları bulabilen bir programda Applescript çalıştırmak istiyorum Bu döviz hesabından ve onları "alt klasör / Silinmiş Öğeler" e taşıyın.

Googling, TÜM postaları Silinmiş Öğeler'de taşıyacak olan aşağıyı bir araya getirdim:

tell application "Microsoft Outlook"
set topFolder to mail folder "AT&T" of on my computer
set destFolder to folder "Deleted Items" of topFolder
move every message of mail folder "Deleted Items" of on my computer to destFolder
end tell

Geçmişi alamadığım kısım şu anda sadece "hesabı" belirli bir değere sahip olan seçmeli olarak hareket eden postayı alıyor.

tell application "Microsoft Outlook"
set topFolder to mail folder "AT&T" of on my computer
set destFolder to folder "Deleted Items" of topFolder
move (every message of mail folder "Deleted Items" of on my computer whose account = "Att") to destFolder
end tell

Herhangi bir yardım takdir!

tell application "Microsoft Outlook"
    set topFolder to mail folder "AT&T" of on my computer
    set destFolder to folder "Deleted Items" of topFolder
    set srcFolder to mail folder "Deleted Items" of on my computer
    set selectedMessages to messages of srcFolder
    repeat with theMessages in selectedMessages
        set thisAccount to account of theMessages
        if (name of thisAccount as text is "Att") then
            if (is read of theMessages is false) then
                set theMessages's is read to true
            end if
            move theMessages to destFolder
        end if
    end repeat
end tell