سوال در مورد اوت لوك

[kkr124]

:cry: :cry: :cry:
سلام
يه برنامه ازم درخاست شده
كه ايميلهايي كه توسط اوت لوك گرفته شدن را به يه ايميل ديگه سند كنه (يعني همه ي ايميلهاي دريافت شده از قبل را‌)
تو رو خدا جواب بديد
:( :( :(
زود فريه ها

[kkr124]

منم توي اين سايت تشريف دارما :evil: :evil: :evil:

[kamran11958]

:cry: :cry: :cry:
سلام
يه برنامه ازم درخاست شده
كه ايميلهايي كه توسط اوت لوك گرفته شدن را به يه ايميل ديگه سند كنه (يعني همه ي ايميلهاي دريافت شده از قبل را‌)
تو رو خدا جواب بديد
:( :( :(
زود فريه ها

سلام كريشنا جان
يه سرچ بزن قبلا برنامه اي گذاشته بودن كه ايميلهاي اوت لوك رو در مي آورد :roll:

[kkr124]

كامران
بچه ها تو رو خدا
خيلي مهمه
كامران خيلي راهنماييم كردي

[Mamad2003]

سلام كريشنا
من فقط نحوه ارسال ايميل رو ميدونم ! :? البته سعي ميكنم اون بخشي رو كه ايميل ها رو پيدا ميكنه رو هم پيدا كنم . :idea:

ببين اول اين ريفرنس رو اضافه كن :

(Microsoft Outlook Object Library (MSOUTL.OLB

تابع زير رو تعريف كن :

کد:

Private Sub SendMail(strTo As String, strSub As String, strMsg As String)
    
    Dim olApp As Outlook.Application
    Dim olNS As NameSpace
    Dim olMessage As MailItem
    
    Set olApp = CreateObject("Outlook.Application")
    Set olNS = olApp.GetNamespace("MAPI")
    
    Set olMessage = olApp.CreateItem(olMailItem)
    olMessage.To = strTo
    olMessage.Subject = strSub
    olMessage.Body = strMsg
    olMessage.Send
    
    olApp.Quit
    
    Set olApp = Nothing
    Set olNS = Nothing
    Set olMessage = Nothing
    
End Sub

:

اينجوري هم صداش بزن :

کد:

Call SendMail ("متن نامه", "عنوان ميل", "آدرس ميل")

قربانت

[kkr124]

ممنونم
مشكام حل شد
خيلي گلي ممد جان :) :)