//
// Deletes all the attachments in the current folder after asking the user.
//
// MenuText = Delete all attachments in current folder
// MenuStrRef = 1266
//
function Main(App)
{
    Folder = App.CurrentFolder;

    Print("Folder='" + Folder.Path + "'\n");

    if (Folder)
    {
        if (Folder.Type == 0xAAFF0001)
        {
            Load(Folder);

            Bytes = 0;
            Count = 0;
            Len = Folder.Length;
            
            for (i=0; i<Len; i++)
            {
                t = Folder.Item[i];
                if (t)
                {
                    Attachments = t.Attachments;
                    for (n=0; n<Attachments; n++)
                    {
                        a = t.Attachment[n];
                        if (a)
                        {
                            Bytes += a.Length;
                            Count++;
                        }
                    }
                }
            }

            if (MsgBox( App,
                        "Do you want to delete " + Bytes + " bytes in " + Count + " attachments?",
                        Name,
                        4) == 6)
            {
                for (i=0; i<Len; i++)
                {
                    t = Folder.Item[i];
                    if (t)
                    {
                        Attachments = t.Attachments;
                        for (n=0; n<Attachments; n++)
                        {
                            a = t.Attachment[n];
                            Delete(a);
                        }
                    }
                }
            }
        }
        else
        {
            MsgBox(App, "Folder doesn't contain mail.", "Delete Attachments");
        }
    }
    else
    {
        MsgBox(App, "No current folder?", "Delete Attachments");
    }
}

Rule:
	freq = [daily, weekly, monthly, yearly]
	repeat = [int]
	by day = [mon,tues,wed,thur,fri,sat,sun]
	by month = [1,12]
	by year = [year,...]
	by pos = [int]

End:
	none
	date = [dd/mm/yyyy]
	count = [int]