Parsi Coders

سلام
من یعنی کلاً تفریحی یسری پروژه انجام میدم بخاطر همین زیاد سوال دارم
پس لطفا ببخشید

حالا سوال این سری

من یه فایل تکست رو میفرستم به ایمیلم با کلی ترفند ( با اضافه کردن کدهای Html به پروژه ) تونستم رنگ و سایز و فونت و ... رو تغییر بدم
یعنی وقتی متن به دستم میرسه با رنگ و لعاب دلخواهم هست

اما مشکل اینجاست که وقتی داخل textbox با قابلیت multiline تایپ میکنم و ارسال میکنم تمام نوشته ها در یه خط به نمایش در میاد


چیزی به ذهنتون میاد ؟

درود
دوست عزیز از این کد 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

ممنون داداش
ایول داری
این یه میل سندر سبک و بدون درد سره
خیلی دنبال همیچین چیزی گشتم اما پیدا نکردم
حتماً ازش استفاده میکنم
اما چون من یه کار دیگه انجام دادم نمیتونم کل کارو از سر شروع کنم ، شما راه حلی واسه مشکل من داری ؟

درود
کد را قرار دهید تا ببینیم مشکل از کجاست

اینم سورس
البته واسه تغیر فونت اینا یسری کد html نوشتم که باید همراه ایمیل ارسال بشه که تو برنامه نیست

کد واسه متن ایمیل


کد واسه پاورقی



که این کدها رو نمیشه تو برنامه کد نویسی کرد بخاطر اعلائمی که دارن ولی میشه فرستاد با یه ترفند (فکر کنم خودم ابداع کردم )

راستی اگر ویندوز xp دارین بگین که ایا ایمیل ارسال کرد یا نه !