peymannaji
یک شنبه 05 فروردین 1386, 00:02 صبح
سلام دوستان .
من از کدهای زیر جهت ارسال ایمیل برای دانت نت 1 استفاده کردم اما یک مشکلی هست اینکه کدهای attach کردن رو که میزارم ارور زیر رو میده :
Invalid mail attachment 'C:\Documents and Settings\ali\Desktop\user_new_starter.doc'.
و مورد بعدی من میخوام آیتم های نظیر نام و نام خانوادگی , شماره تماس , آدرس هم برام ارسال بشه اما با کدهایی که در اینجا هست من فقط میتونم یک سابجکت + آدرس ایمیل فرد کردی که ایمیل میده + متن ایمیل رو داشته باشم برای این مسئله ممنون میشم راهنماییم کنیم که چه کار باید کرد و به این مسئله فوری نیاز دارم .
کد های ایمیل :
Dim objmail As New MailMessage
objmail.From = mfrom
objmail.To = mailto
objmail.Subject = subject
objmail.BodyEncoding = System.Text.Encoding.UTF8
objmail.Body = htmltext
objmail.BodyFormat = MailFormat.Text
SmtpMail.SmtpServer = mailserver
Dim Attachment As New MailAttachment("Physical file destination")
objmail.Attachments.Add(Attachment)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", mailserver)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", mfrom)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", pass)
Try
SmtpMail.Send(objmail)
Catch ex As Exception
End Try
من از کدهای زیر جهت ارسال ایمیل برای دانت نت 1 استفاده کردم اما یک مشکلی هست اینکه کدهای attach کردن رو که میزارم ارور زیر رو میده :
Invalid mail attachment 'C:\Documents and Settings\ali\Desktop\user_new_starter.doc'.
و مورد بعدی من میخوام آیتم های نظیر نام و نام خانوادگی , شماره تماس , آدرس هم برام ارسال بشه اما با کدهایی که در اینجا هست من فقط میتونم یک سابجکت + آدرس ایمیل فرد کردی که ایمیل میده + متن ایمیل رو داشته باشم برای این مسئله ممنون میشم راهنماییم کنیم که چه کار باید کرد و به این مسئله فوری نیاز دارم .
کد های ایمیل :
Dim objmail As New MailMessage
objmail.From = mfrom
objmail.To = mailto
objmail.Subject = subject
objmail.BodyEncoding = System.Text.Encoding.UTF8
objmail.Body = htmltext
objmail.BodyFormat = MailFormat.Text
SmtpMail.SmtpServer = mailserver
Dim Attachment As New MailAttachment("Physical file destination")
objmail.Attachments.Add(Attachment)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", mailserver)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", mfrom)
objmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", pass)
Try
SmtpMail.Send(objmail)
Catch ex As Exception
End Try