• سوال: سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر
    #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 1,032 25-11-2014 ساعت 18:30
    آخرین ارسال: moeinmq
    Note سورس قطع کردن اتصال به اینترنت با رفرش کردن moeinmq 3 1,128 14-08-2014 ساعت 20:23
    آخرین ارسال: vc3000
    Note سورس مقاسیه عدد Daniel 0 439 18-04-2014 ساعت 18:21
    آخرین ارسال: Daniel
    Note آدرس یاب رایگان + سورس amirali 7 2,056 10-04-2014 ساعت 08:45
    آخرین ارسال: AppDev
    Note سورس وصل شدن به اینترنت بصورت مخفی moeinmq 1 644 03-12-2013 ساعت 22:18
    آخرین ارسال: VBProgrammer
    Note سورس کدهای ویژوال بیسیک 6 Daniel 136 28,271 18-11-2013 ساعت 10:38
    آخرین ارسال: Daniel
    Note کپی فایل ها در فلش مموری moeinmq 3 614 14-11-2013 ساعت 22:46
    آخرین ارسال: Ali Developer
    Note سوال: نمایش ایمیل دریافت شده در VB6 moeinmq 4 1,178 23-09-2013 ساعت 09:36
    آخرین ارسال: C0der
    Note شبکه کردن کامپیوترها با ویژوآل بیسیک moeinmq 2 578 22-09-2013 ساعت 17:54
    آخرین ارسال: moeinmq
    Note برنامه ای که بعد از مدتی بصورت خودکار کامپیوتر رو خاموش کنه؟ Somi 1 502 26-07-2013 ساعت 10:53
    آخرین ارسال: THE KNIGHT

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