Rabbit Charms Macro

1. Buy Rabbit Charm on Island

/run BuyMerchantItem(1,1)

2. Send Rabbit Charms to "Charname"

/run MailFrameTab_OnClick(MailFrame,2)
/run for b=0,4 do for s=0,36 do l=GetContainerItemLink(b,s) if l and l:find("Rabbit's Charm")then UseContainerItem(b,s) end end end
/run SendMailNameEditBox:SetText("Charname")
/run SendMailMailButton:Click()

3. After 30 Days: Take First Mail in Mailbox then 2.

/run MailFrameTab_OnClick(MailFrame,1)
/run AutoLootMailItem(1)