View Full Version : vb و ارسال mail
a-mohebbi
دوشنبه 16 آذر 1383, 13:00 عصر
باسلام
آیا روش (هائی) وجود دارد که بتوان بااستفاده از پایگاه داده موجود در vb گزارشاتی تهیه نمود سپس آنها را به آدرس mail box بصورت اتوماتیک ارسال کرد (یعنی فقط با کلیک یک دگمه مراحل بالا اتوماتیک وار انجام پذیرد) ؟
با تشکر فراوان از همه کسانی که راهنمائی می کنند.
حامد مصافی
دوشنبه 16 آذر 1383, 14:37 عصر
این برنامه نامه رو میفرسته > ببین به دردت می خوره ؟
H_r_m
دوشنبه 16 آذر 1383, 19:42 عصر
ممنونم منم لازم داشتم
a-mohebbi
سه شنبه 17 آذر 1383, 12:28 عصر
باسلام مجدد
باتشکر از شما دوست گرامی
اگر مطلب دیگری داشتید لطفا اتچ کرده وتوضیحاتی راجع به آن فرمائید .
باتشکر
setarehman
چهارشنبه 18 آذر 1383, 09:06 صبح
اینم میشه
ساران سافت
چهارشنبه 18 آذر 1383, 13:36 عصر
چجوری کار می کنه؟
اصلا کار می کنه؟ :wink:
setarehman
پنج شنبه 19 آذر 1383, 09:33 صبح
این چیزی که من گذاشتم اینجا که کار میکنه حالا نمیدونم کدوم یکی از برنامه ها رو میگی
ساران سافت
پنج شنبه 19 آذر 1383, 09:48 صبح
هیچ کدم کارنمی کنه
ین چیزی که من گذاشتم اینجا که کار میکنه
می توانید نحوه کار کردش را توضیح دهید. :wink:
باتشکر
حامد مصافی
پنج شنبه 19 آذر 1383, 15:01 عصر
این برنامه رو من ننوشتم به همین دلیل زیاد مطمئن نیستم!
ولی اگه نرم افزار اوت لوک روی کامپیوتر شما نصب باشه (که به دلیل سیاست های مایکروسافت معمولاً همراه ویندوز نصب میشه) بوسیله اتوماسیون اوت لوک می تونین نامه رو پست کنین . کافیه این مراحل رو طی کنین :
1 - یک پروژه جدید در وی بی باز کنید
2 - از منوی Projrt گزینه Prefrence رو انتخاب کنید
3 - Microsoft Outlook x.x Object Library رو به پروژه اضافه کنین ( x.x نسخه آفیس است)
4 - یک دکمه روی فرم بذارین و کد زیر رو برای رویداد کلیکش بنویسین
Private Sub cmdSendMail_Click()
Dim OutLookObject As Application
Dim MaleItem As Object
Set OutLookObject = Outlook.Application
Set MaleItem = OutLookObject.CreateItem(olMailItem)
On Error GoTo No_Allow
MaleItem.Recipients.Add ("BlackDal@LinuxMail.com") ' Replace your own e-mail address with my address !
MaleItem.Subject = "Subject" ' Replace the subject word with your own subject
MaleItem.Body = "Body" ' Replace the bode word with your own message body
MaleItem.Send ' Male sent !
Set OutLookObject = Nothing
Set MaleItem = Nothing
Exit Sub
No_Allow:
MsgBox "The OutLook don't allow to use automation", vbCritical, "Error"
End Sub
ساران سافت
پنج شنبه 19 آذر 1383, 15:17 عصر
ببینید این درست ولی به اوت لوک وابسته است و اوت لوکش به میل سرور وصل نباشد کار نمی کند
آیا کسی برنامه ای ندارد که مستقیما میل بفرستد یا به میل سرور یاهو وصل شود؟ :wink:
vbprogramer
شنبه 21 آذر 1383, 13:51 عصر
من یکی دارم که بدون استفاده از میل سرور کار می کنه ولی نمی دونم چرا سایت اجازه upload به من نمیده :mad: :sad2: :sorry:
a-mohebbi
یک شنبه 22 آذر 1383, 07:25 صبح
سلام دوست عزیز
باز کردن یک گره کوچک میتونه خیلی از مشکلات رو حل کنه اگه ممکنه لطفا با مدیر بخش یا مدیر سایت تماس بگیرید.
باتشکر
vb4u
یک شنبه 22 آذر 1383, 09:54 صبح
سلام به همه.
فرستادن ایمیل یه کم دنگو فنگ داره ولی سخت نیست.
اول به آقای BlackDal بگم که اون کدی که گذاشته بودی کدی بود که ویروس I Love You سال 2000 با استفاده ازش میومد آدرس هایی رو که توی Outlook بود بر می داشت (توی فایل WAB) و واسه افراد مختلف ایمیل می فرستاد از طرف شخص آلوده.
البته این ویروس دستگاه هایی رو آلوده می کرد که از Outlook واسه مدیریت پیغام هاشون استفاده می کردن و از اونجایی که ما ایرانیا 90 درصد با یاهو و مستقیما با خود سایت کار داریم، این ویروس توی ایران هیچ خسارتی به بار نیاورد.
استفاده از اون کد هم مستلزم اینه که Outlook پیکربندی شده باشه...
و اما فرستادن ایمیل قانون داره. راه داره. روش داره.
مثل Protocol که یه زبون ارتباطیه.
برای اینکه از این قانون ها سر در بیارید باید از RFC استفاده کنید.
البته مطمئنن می دونید که RFC ها مقالاتی هستند حاوی قوانین ثابتی در مورد علوم کامپیوتر که استانداد جهانی هستند.
هر چی هم برنامه می بینید بهشون توجه نکنید.
یه مشت آدم مبتدی اومدن اینا رو نوشتن مه اصلنم کار نمی کنن و اگه هم کار می کنن فقط با Hotmail هست چون Homail سرویس POP3 مفتی می ده ولی یاهو نه.
RFC که باید بهش مراجعه کنید، RFC822 هست که می تونید از اینجا بگیریش.
ftp://ftp.rfc-editor.org/in-notes/rfc822.txt
تو این FTP همه ی RFC ها هستن.
شکل Packet ای که باید ایجاد کنید رو توی این فایل متنی به طور کامل توضیح داده.
به این میگن روش علمی و عقلیه فرستادن Mail.
راستی یه راه دیگه هم هست.
اینکه مقادیر فیلدهای مختلف Mail رو به یه سایت که POP3 مجانی داره بفرستید یعنی به طور غیر مستقیم بدون نیاز به لوگین!!!
البته بازیگوشی نکنید چون با این کار می تونید از طرف یکی به یکی دیگه میل بزنید بدون اینکه طرف فرستنده روحش هم از Mail فرستاده شده خبر داشته باشه.
موفق باشید.
بهروز راد
:wise1:
حامد مصافی
یک شنبه 22 آذر 1383, 11:24 صبح
اول به آقای BlackDal بگم که اون کدی که گذاشته بودی کدی بود که ویروس I Love You سال 2000 با استفاده ازش میومد آدرس هایی رو که توی Outlook بود بر می داشت (توی فایل WAB) و واسه افراد مختلف ایمیل می فرستاد از طرف شخص آلوده.
عزیز من هر دو کدی که شکل هم باشن معنیش اینه که یکی از دیگری کپی کرده ؟؟ :گیج: :(
در این روش از اتوماسیون او لوک برای فرستادن نامه استفاده شده ، پس هر برنامه ای که بخواد از اوت لوک برای ارسال ایمیل استفاده کنه به ناچار باید از این کدها استفاده کنه! :wink:
فقط لاوباگ از این روش برای ارسال خودش به آدرس های اوت لوک استفاده نمی کنه ، ویروس های زیادی این کار رو می کنن :wink:
vb4u
یک شنبه 22 آذر 1383, 11:32 صبح
سلام.
اولا که آقای BlackDal من نگفتم شما این کد رو کپی کردید!!!
دوما من نگفتم که فقط ویروس I Love You از این طریق عمل می کنه.
سوما حتی جدیدتزین ویروس ها هم از این روش استفاده می کنن چون در حقیقت راه دیگه ای برای تکثیر نیست.
چهارما شما بهتره دفعه بعد دقیق تر متن مقالات رو بخونید.
با تشکر
بهروز راد
:wise1:
vbprogramer
یک شنبه 22 آذر 1383, 11:42 صبح
آقا بهروز شما که اینقدر ادعا می کنید بهتره به جای ایراد گرفتن از کدهای دیگران خودتون یه کد بدین البته من گفتم که یه برنامه دارم فقط اجازه upload کردن اون رو ندارم
vb4u
یک شنبه 22 آذر 1383, 11:59 صبح
اولا که سلام کردن چیز خوبیه.
سلام.
ای بابا شماها چقدر تازه به دوران رسیده هستیدااااااااا.
تا یه چیزی میشه زود بحث ادعا رو پیش می کشن.
حالا بیا به یه عده لطف کن.
همون باید بعضیا تو گمراهی بمونن تا واسه آدم اینجوری شاخ نشن.
عزیز جون همین RFC که معرفی کردم خودش کد دیگه!!!
یه WinSock بذار رو فرمت (مبتدیا) یا از توابع API WinSock استفاده کن (حرفه ایها).
بعد در فواصل زمانیه مشخص اطلاعات رو Send کن.
اگه می بینی یه سری برنامه ها درست کار نمیدن واسه اینه که شکل Packet نادرسته.
یه راه خیلی باحالم اینه که از توی Yahoo یه میل به یه آدرس الکی که وجود نداره بفرستی.
Yahoo در پاسخش یه میل واست میفرسته که توش نوشته این ایمیل به فلان آدرس نرسید و داخلش شکل Packete فرستاده شده رو نشون داده.
اهدنا الصراط المستقیم...
بهروز راد
:wise1:
mohsengrisly
یک شنبه 22 آذر 1383, 12:30 عصر
بابا اگر دعوا دارید با هم یه قراری بذارید وهمدیگرو یه فصل کتک بزنید :mad:
این سایت اموزشیه :sad2:
بخاطر گل روی ما بس کنید :mrgreen:
دوستدار همه شما :sunglass:
Behrouz_Rad
یک شنبه 22 آذر 1383, 13:42 عصر
سلام.
آخ قربون آدم چیز فهم.
آقا خودت قضاوت کن.
این آقایون میان الکی داد و بیداد می کنن.
ما که کاری به کار کسی نداریم.
چاکر همه برنامه نویسا هم هستیم.
واسه اینکه حسن نیتمم ثابت کنم من معذرت خواهی می کنم.
اهدنا الصراط المستقیم...
:wise1:
vbprogramer
دوشنبه 23 آذر 1383, 15:10 عصر
اولاْ سلام
دوماْ کی گفت دعوا داریم
سوماْ من فقط گفتم اگه برنامه ای دارین بدین و بگین که این درسته
بعدشم منم معذرت میخواهم
Behrouz_Rad
دوشنبه 23 آذر 1383, 15:24 عصر
سلام.
به زودی یه مقاله جامع و خیلی کامل میدم تا دیگه حرفی نباشه.
یه مقاله که دیگه حرف و حدیثی توی ارسال E_Mail نباشه.
متشکرم.
بهروز راد
:wise1:
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.