+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: ارسال متن کامل به html (/showthread.php?tid=3721)
ارسال متن کامل به html - aghamali - 11-02-2014
سلام
من یعنی کلاً تفریحی یسری پروژه انجام میدم بخاطر همین زیاد سوال دارم
پس لطفا ببخشید
حالا سوال این سری
من یه فایل تکست رو میفرستم به ایمیلم با کلی ترفند ( با اضافه کردن کدهای Html به پروژه ) تونستم رنگ و سایز و فونت و ... رو تغییر بدم
یعنی وقتی متن به دستم میرسه با رنگ و لعاب دلخواهم هست
اما مشکل اینجاست که وقتی داخل textbox با قابلیت multiline تایپ میکنم و ارسال میکنم تمام نوشته ها در یه خط به نمایش در میاد
چیزی به ذهنتون میاد ؟
RE: ارسال متن کامل به html - Anarchy - 11-02-2014
درود
دوست عزیز از این کد vbs استفاده کنید.
MailTo = "ایمیل به"
From = "از"
Subject = "موضوع"
Body = "بدنه."
Username = "یوزر نیم"
Password = "پسورد"
Email MailTo, From, Subject, Body, Username, Password
Sub Email (MailTo, From, Subject, Body, Username, Password)
Set objMessage = CreateObject("CDO.Message")
With objMessage
.Subject = Subject
.From = From
.To = MailTo
.TextBody = Body
End With
With objMessage.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Username
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Password
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'change to 465 or 25if you get an error
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Update
End With
objMessage.Send
End Sub
RE: ارسال متن کامل به html - aghamali - 11-03-2014
ممنون داداش
ایول داری
این یه میل سندر سبک و بدون درد سره
خیلی دنبال همیچین چیزی گشتم اما پیدا نکردم
حتماً ازش استفاده میکنم
اما چون من یه کار دیگه انجام دادم نمیتونم کل کارو از سر شروع کنم ، شما راه حلی واسه مشکل من داری ؟
RE: ارسال متن کامل به html - Anarchy - 11-03-2014
درود
کد را قرار دهید تا ببینیم مشکل از کجاست
RE: ارسال متن کامل به html - aghamali - 11-03-2014
اینم سورس
البته واسه تغیر فونت اینا یسری کد html نوشتم که باید همراه ایمیل ارسال بشه که تو برنامه نیست
کد واسه متن ایمیل
کد:
<p dir="rtl" align="right"> <font size="3" face="Tahoma">کد واسه پاورقی
کد:
<p dir="rtl" align="Center"> <font size="4" color="red" face="Tahoma">که این کدها رو نمیشه تو برنامه کد نویسی کرد بخاطر اعلائمی که دارن ولی میشه فرستاد با یه ترفند (فکر کنم خودم ابداع کردم )
RE: ارسال متن کامل به html - aghamali - 11-03-2014
راستی اگر ویندوز xp دارین بگین که ایا ایمیل ارسال کرد یا نه !