سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر

سلام
فکر کنم دو سوال غیر مرتبط به هم رو نمیشه تو یه پست پرسید (قبلا تو قوانین اومده بود) اگر خلافه لطفا مدیران درست کنن.
یاهو میل = ایمیل / گوگل میل(جیمیل) = ایمیل

1- تو vb6 خیلی کار سختیه من خیلی گشتم راهش فقط کمک گرفتن از outlook ه:
اول از reference گزینه Microsoft Outlook 9.0 object library رو اضافه کن.

       Private Sub DelateEmailFromOutlook()
            Dim tempApp As Outlook.Application
            Dim tempInbox As Outlook.MAPIFolder
            Dim InboxItems As Outlook.Items
            tempApp = CreateObject("Outlook.Application")
            tempInbox = tempApp.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
            InboxItems = tempInbox.Items
            Dim DeleteMail As Outlook.MailItem
            For Each newMail In InboxItems
                DeleteMail.Delete()
            Next
            InboxItems = Nothing
            tempInbox = Nothing
            tempApp = Nothing
        End Sub

2- نمایش ip

MsgBox Winsock1.LocalIP