serghst
پنج شنبه 12 شهریور 1388, 19:13 عصر
سلام دوستان سوال کوچکی برام پیش آمده و احتیاج به یک راهنمائی دارم موضوع اینه که یک برنامه در دست ساخت دارم با ویژوال بیسیک 6 که با اون میشه با کلیک روی اسم کسی مستقیم به compose تو یا هو میل خودمون بریم و مشخصات در TO: و Cc: و subject: به صورت اتوماتیک نوشته میشه . البته تو برنامه از webbrowser استفاده میکنم و subject با کلمه subj تو برنامه شناخته میشه اما برای انتقال متن به داخل بدنه پیام مشکل دارم و نمیدونم از چه کلمه ای برای شناختش استفاده کنم ...اون قسمت از کد اینه:
Do While YahooMail.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
With YahooMail.Document
All.Item("To").Value = "mohsen@yahoo.com"
.All.Item("Cc").Value = "ali@yahoo.com"
.All.Item("subj").Value = "Salam"
.All.Item("?").Value = "matne payam...."
End With
Do While YahooMail.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
به جای علامت سوال چی باید بنویسم تا متن توی بدنه پیام یا هو میل دیده بشه ضمنا از خیلی کلمات تا به حال استفاده کردم اما جواب نداده ...یا ارور داده یا اگر نداده چیزی داخل متن پیام دیده نمیشه
کلماتی که استفاده کردم و ارور نداده اما جواب هم نداده text و content بوده اما با استفاده از body یا message و .....خطا میده. لطفا راهنمائی بفرمائید
Do While YahooMail.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
With YahooMail.Document
All.Item("To").Value = "mohsen@yahoo.com"
.All.Item("Cc").Value = "ali@yahoo.com"
.All.Item("subj").Value = "Salam"
.All.Item("?").Value = "matne payam...."
End With
Do While YahooMail.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
به جای علامت سوال چی باید بنویسم تا متن توی بدنه پیام یا هو میل دیده بشه ضمنا از خیلی کلمات تا به حال استفاده کردم اما جواب نداده ...یا ارور داده یا اگر نداده چیزی داخل متن پیام دیده نمیشه
کلماتی که استفاده کردم و ارور نداده اما جواب هم نداده text و content بوده اما با استفاده از body یا message و .....خطا میده. لطفا راهنمائی بفرمائید