Eftekhar
23-10-2007, 11:29
دوستان عزیز،
سلام ...
تو رو خدا کمکم کنید ...
من یک کد ارسال ایمیل می خوام که بتونم برای اعضای سایت بصورت اتوماتیک هنگام ثبت نام ایمیل بفرستم. هرچی توی اینترنت گشتم و کد پیدا کردم و توی صفحه استفاده کردم، صفحه ERROR نمی ده، ولی هیچ ایمیلی ارسال نمی شه ...
متدی هم که باید استفاده کنم اینه: CDO MESSAGE
کد مذکور هم اینه:
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "eftekhar.aria@gmail.com"
objMessage.To = eftekhar.aria@gmail.com
objMessage.TextBody = "This is some sample message text."
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 2
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = "؟؟؟"
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
سلام ...
تو رو خدا کمکم کنید ...
من یک کد ارسال ایمیل می خوام که بتونم برای اعضای سایت بصورت اتوماتیک هنگام ثبت نام ایمیل بفرستم. هرچی توی اینترنت گشتم و کد پیدا کردم و توی صفحه استفاده کردم، صفحه ERROR نمی ده، ولی هیچ ایمیلی ارسال نمی شه ...
متدی هم که باید استفاده کنم اینه: CDO MESSAGE
کد مذکور هم اینه:
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "eftekhar.aria@gmail.com"
objMessage.To = eftekhar.aria@gmail.com
objMessage.TextBody = "This is some sample message text."
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 2
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = "؟؟؟"
objMessage.Configuration.Fields.Item _
("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 25
objMessage.Configuration.Fields.Update
objMessage.Send