:cry: :cry: :cry:
سلام
يه برنامه ازم درخاست شده
كه ايميلهايي كه توسط اوت لوك گرفته شدن را به يه ايميل ديگه سند كنه (يعني همه ي ايميلهاي دريافت شده از قبل را)
تو رو خدا جواب بديد
:( :( :(
زود فريه ها
منم توي اين سايت تشريف دارما :evil: :evil: :evil:
kkr124 نوشته است::cry: :cry: :cry:
سلام
يه برنامه ازم درخاست شده
كه ايميلهايي كه توسط اوت لوك گرفته شدن را به يه ايميل ديگه سند كنه (يعني همه ي ايميلهاي دريافت شده از قبل را)
تو رو خدا جواب بديد
:( :( :(
زود فريه ها
سلام كريشنا جان
يه سرچ بزن قبلا برنامه اي گذاشته بودن كه ايميلهاي اوت لوك رو در مي آورد :roll:
كامران
بچه ها تو رو خدا
خيلي مهمه
كامران خيلي راهنماييم كردي
سلام كريشنا
من فقط نحوه ارسال ايميل رو ميدونم ! :? البته سعي ميكنم اون بخشي رو كه ايميل ها رو پيدا ميكنه رو هم پيدا كنم . :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 ("متن نامه", "عنوان ميل", "آدرس ميل")
قربانت
ممنونم
مشكام حل شد
خيلي گلي ممد جان :) :)