سوال: سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر
#1
Note 
دوستان قبلا ازینجا یه پروژه دریافت کرده بودم مبتنی بر ارسال ایمیل/حالا میخاستم بدونم سورسی هست که بشه باش ایمیل ارسال شده رو هم از قسمت سنت و هم از قسمت ترش پاک کرد؟برای جی میل هم همینطور


سورسی هست که آی پی اصلی کامپیوتر که تو dos میتونیم بدست بیاریمو نشونمون بده همچنین مک آدرس؟


دوستان ممنون میشم لطفا راهنمایی کامل بکنید

...هیچکس ویرانیم را حس نکرد...
...وسعت تنهاییم را حس نکرد...
...درمیان خنده های تلخ من...
...گریه های پنهانیم را حس نکرد...

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


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
***********
پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note سوال سورس برنامه افزایش ولتاژ قطعات موردنظر moeinmq 0 697 25-11-2014 ساعت 18:30
آخرین ارسال: moeinmq
Note سورس قطع کردن اتصال به اینترنت با رفرش کردن moeinmq 3 957 14-08-2014 ساعت 20:23
آخرین ارسال: vc3000
Note سورس مقاسیه عدد Daniel 0 354 18-04-2014 ساعت 18:21
آخرین ارسال: Daniel
Note آدرس یاب رایگان + سورس amirali 7 1,742 10-04-2014 ساعت 08:45
آخرین ارسال: AppDev
Note سورس وصل شدن به اینترنت بصورت مخفی moeinmq 1 545 03-12-2013 ساعت 22:18
آخرین ارسال: VBProgrammer
Note سورس کدهای ویژوال بیسیک 6 Daniel 136 20,135 18-11-2013 ساعت 10:38
آخرین ارسال: Daniel
Note کپی فایل ها در فلش مموری moeinmq 3 506 14-11-2013 ساعت 22:46
آخرین ارسال: Ali Developer
Note سوال: نمایش ایمیل دریافت شده در VB6 moeinmq 4 980 23-09-2013 ساعت 09:36
آخرین ارسال: C0der
Note شبکه کردن کامپیوترها با ویژوآل بیسیک moeinmq 2 494 22-09-2013 ساعت 17:54
آخرین ارسال: moeinmq
Note برنامه ای که بعد از مدتی بصورت خودکار کامپیوتر رو خاموش کنه؟ Somi 1 417 26-07-2013 ساعت 10:53
آخرین ارسال: THE KNIGHT

کاربرانِ درحال بازدید از این موضوع:   1 مهمان