ارسال متن به هاست

[majidbahrami]

سلام دوستان...
من میخوام برنامه ای بنویسم که کاربر میخواد نظرشو برام بفرسته راجع به برنامم

میخوام وقتی متنی داخل تکس باکس تایپ میکنه و با زدن دکمه send متن تکست باکس روی فضای مورد نظرم مثل پرشین گیگ ذخیره شه تا بتونم بخونمش..

اگه سورسی یا کدی دارین برام بزارین ممنون میشم.

[M.T.P]

متن رو بدید براتون ایمیل کنه ، اینم تابع ارسال ایمیل:



Public Function SendMail(ByVal sMailSender As String, _
ByVal sMailSenderPassword As String, _
ByVal sMailSubject As String, _
ByVal sMailReciever As String, _
ByVal sMailText As String, _
ByVal sMailAttachFile As String) As Boolean

On Error GoTo EndLine
Dim ObMsg As Object
Dim ObConf As Object
Dim Flds As Object
Dim StrSchema As String
Dim blnRet As Boolean

blnRet = False

If sMailSender = vbNullString Or sMailSenderPassword = vbNullString Then
GoTo EndLine
End If

Set ObMsg = CreateObject("CDO.Message")
Set ObConf = CreateObject("CDO.Configuration")
Set Flds = ObConf.Fields



' send one copy with Google SMTP server (with autentication)
StrSchema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(StrSchema & "sendusing") = 2
Flds.Item(StrSchema & "smtpserver") = "smtp.gmail.com"
Flds.Item(StrSchema & "smtpserverport") = 465
Flds.Item(StrSchema & "smtpauthenticate") = 1
Flds.Item(StrSchema & "sendusername") = sMailSender
Flds.Item(StrSchema & "sendpassword") = sMailSenderPassword
Flds.Item(StrSchema & "smtpusessl") = 1
Flds.Update

With ObMsg
.To = sMailReciever
.From = sMailSender
.Subject = sMailSubject
.HTMLBody = sMailText
.Sender = sMailSender
.Organization = "S.M.B Productions"
.ReplyTo = sMailSender
If sMailAttachFile <> vbNullString Then
.AddAttachment (sMailAttachFile)
End If
Set .Configuration = ObConf
.Send
End With

blnRet = True

EndLine:
Set ObMsg = Nothing
Set ObConf = Nothing
Set Flds = Nothing
SendMail = blnRet
End Function

[majidbahrami]

من زیاد وارد نیستم اگه میشه سورس شو برام بزارید. این کد ها کجا باید کپی شه ؟ چطر ازش استفاده کنم؟

[M.T.P]

تابع پست قبلی رو داخل یک ماژول یا کد خود فرم کپی کن بعد به این شکل استفاده کن:

فرض کن می خوای Text1 متن داخلش ایمیل شه.



SendMail "yourmail@gmail.com", _
"123456789", _
"Salam", _
"yourmail@gmail.com", _
Text1.Text, _
vbNullString

به جای yourmail@gmail.com آدرس ایمیلتون و به جای 123456789 پسورد ایمیلتون رو وارد می کنید. سلام هم که عنوان نامه ست هر کلمه ای دوست داری جایگزین کن.

[majidbahrami]

دوستان یه مشکل کوچیک
من میخوام طرف در قسمت نام اسمشو جدا در تکس باکس دیگه بنویسه.یعنی 2 تا تکس باکس داشته باشیم.اولی نام دومی متن

سوال دیگه هم اینکه ماجول ها باید در کنار برنامه هنگام کامپایلر بمونه و باشه ؟

[M.T.P]

دوستان یه مشکل کوچیک
من میخوام طرف در قسمت نام اسمشو جدا در تکس باکس دیگه بنویسه.یعنی 2 تا تکس باکس داشته باشیم.اولی نام دومی متن

سوال دیگه هم اینکه ماجول ها باید در کنار برنامه هنگام کامپایلر بمونه و باشه ؟

خب شما می تونی به جای اون salam اسم ارسال کننده رو جایگزین کنی که اسم نظردهنده میشه عنوان نامه.

سوال دوم یعنی چی! مگه vb کار نیستید؟ :لبخند:

[majidbahrami]

نه نیستم اما خیلی علاقه دارم به ویبی.

یه سوال دیگه هم ازتون داشتم.(شرمنده ها)

چطوری میشه یه فایل رو اتوماتیک لود کرد ؟ مثلا وقتی اجر شد یه فایل متنی رو از داخل یه پوشه لود کنه.و هر وقت تغیر کرد مقدار فایل متنی فوری توی برنامه هم تغییر کنه
:چشمک:

[majidbahrami]

کسی نبود جواب بده که چطوری میشه یه فایل رو اتوماتیک لود کرد ؟ مثلا وقتی اجرا شد یه فایل متنی رو از داخل یه پوشه لود کنه.و هر وقت تغیر کرد مقدار فایل متنی فوری توی برنامه هم تغییر کنه ؟

[majidbahrami]

کسی نیست جواب مارو بده؟

[MahdiPOnline]

میتونی یه تایمر بذاری و هر پنج ثانیه تغییراتو ببینی
این کار خیلی مسخرس، شما تو یه فایل تغییر ایجاد میکنی و بعد میخوای تو یه برنامه دیگه ببینی چیکار کردی؟ چه تغییر ایجاد شده؟