vahidehrafati
پنج شنبه 21 اردیبهشت 1385, 11:16 صبح
سلام
من از برنامه ام می خوام به ایمیل داخلی افراد (Exchange Server) متنی رو بفرستم با استفاده از OutLook Library توی سایت برنامه هایی رو پیدا کردم که نیازم رو رفع کرد اما مشکلم اینه که هنگامیکه می خواد آدرس گیرنده پیام رو تعیین کنه یک پیام توسط outlook ظاهر می شه مبنی بر اینکه آیا شما موافق درج آدرس توسط یک برنامه دیگر هستید یا فکر می کنید یه ویروسه ؟
حالا من نمی خوام این پیام ظاهر شه .
برنامه ای که توی سایت پیدا کردم هم اینه
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 ("ziarani mehri") ' Replace your own e-mail address with my address !
MaleItem.Subject = "man oomadam" ' Replace the subject word with your own subject
MaleItem.Body = "test2" ' 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
من از برنامه ام می خوام به ایمیل داخلی افراد (Exchange Server) متنی رو بفرستم با استفاده از OutLook Library توی سایت برنامه هایی رو پیدا کردم که نیازم رو رفع کرد اما مشکلم اینه که هنگامیکه می خواد آدرس گیرنده پیام رو تعیین کنه یک پیام توسط outlook ظاهر می شه مبنی بر اینکه آیا شما موافق درج آدرس توسط یک برنامه دیگر هستید یا فکر می کنید یه ویروسه ؟
حالا من نمی خوام این پیام ظاهر شه .
برنامه ای که توی سایت پیدا کردم هم اینه
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 ("ziarani mehri") ' Replace your own e-mail address with my address !
MaleItem.Subject = "man oomadam" ' Replace the subject word with your own subject
MaleItem.Body = "test2" ' 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