raha2006
یک شنبه 03 اردیبهشت 1385, 16:08 عصر
سلام
من می خواهم همراه میلم فایلی هم attach کنم برای این کار از دستور زیر استفاده کرده ام:
Sub sendmail()
Dim objmail As New mailmessage
objmail.To = "آدرس میل"
objmail.Cc = T2.Text
objmail.From = T3.Text
objmail.Subject = T4.Text
Dim strfile As String = f1.PostedFile.FileName
objmail.Attachments.Add(New MailAttachment(strfile))
objmail.BodyFormat = MailFormat.Html
objmail.Body = Tbody.Text
SmtpMail.SmtpServer = ""
SmtpMail.Send(objmail)
T2.Text = " "
T3.Text = " "
T4.Text = " "
Lb1.Text = " میل شما با موفقیت ارسال شد "
End Sub
که در اینجا f1 نام همان file field من می باشد روی locall جواب می دهد و میل فرستاده می شود ولی روی سرور پیغام زیر را می دهد:
Invalid mail attachment 'C:\Documents and Settings\Server\Desktop\New Folder (3)\online.rar'.
حالا نمی دانم به جای objmail.Attachments.Add(New MailAttachment(strfile)) باید چه بنویسم
قبلا از کمکتون تشکر می کنم
من می خواهم همراه میلم فایلی هم attach کنم برای این کار از دستور زیر استفاده کرده ام:
Sub sendmail()
Dim objmail As New mailmessage
objmail.To = "آدرس میل"
objmail.Cc = T2.Text
objmail.From = T3.Text
objmail.Subject = T4.Text
Dim strfile As String = f1.PostedFile.FileName
objmail.Attachments.Add(New MailAttachment(strfile))
objmail.BodyFormat = MailFormat.Html
objmail.Body = Tbody.Text
SmtpMail.SmtpServer = ""
SmtpMail.Send(objmail)
T2.Text = " "
T3.Text = " "
T4.Text = " "
Lb1.Text = " میل شما با موفقیت ارسال شد "
End Sub
که در اینجا f1 نام همان file field من می باشد روی locall جواب می دهد و میل فرستاده می شود ولی روی سرور پیغام زیر را می دهد:
Invalid mail attachment 'C:\Documents and Settings\Server\Desktop\New Folder (3)\online.rar'.
حالا نمی دانم به جای objmail.Attachments.Add(New MailAttachment(strfile)) باید چه بنویسم
قبلا از کمکتون تشکر می کنم