سلام
فکر کنم دو سوال غیر مرتبط به هم رو نمیشه تو یه پست پرسید (قبلا تو قوانین اومده بود) اگر خلافه لطفا مدیران درست کنن.
یاهو میل = ایمیل / گوگل میل(جیمیل) = ایمیل
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
آخرین ویرایش: 24-01-2015 ???? 18:34، توسط
xMAN