PDA

View Full Version : MailAttachment



raha2006
یک شنبه 03 اردیبهشت 1385, 15: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)) باید چه بنویسم
قبلا از کمکتون تشکر می کنم

saniak_robot
یک شنبه 03 اردیبهشت 1385, 19:22 عصر
تو سایت codeproject نمونه مثالش هست . اونجا یه search بزن .



موفق باشید .

raha2006
دوشنبه 04 اردیبهشت 1385, 11:09 صبح
سلام
من از روی سایت codeproject این برنامه رو نوشتم (البته طبق نیاز خودم) ولی نمی دونم چرا از روی local می تونم به آدرس میلم میل بزنم ولی وقتی روی سرور می ره از من username و password می خواد .
اینم برنامم:

Sub sendmail()
Dim objmail As New MailMessage
objmail.To = "آدرس ایمیلم"
objmail.Cc = T2.Text
objmail.From = T3.Text
objmail.Subject = T4.Text
objmail.BodyEncoding = System.Text.Encoding.UTF8
SmtpMail.SmtpServer = "آدرس smtp"
Dim strfile As String
Dim attach1 As String
attach1 = "null"
strfile = Path.GetFileName(f1.PostedFile.FileName)
f1.PostedFile.SaveAs(Server.MapPath(strfile))
objmail.Attachments.Add(New MailAttachment(Server.MapPath(strfile)))
objmail.BodyFormat = MailFormat.Html
attach1 = strfile
objmail.Body = Tbody.Text
SmtpMail.Send(objmail)
T2.Text = " "
T3.Text = " "
T4.Text = " "
Lb1.Text = " میل شما با موفقیت ارسال شد "
If (attach1 <> "null") Then
File.Delete(Server.MapPath(attach1))
End If
End Sub
لطفا بگویید مشکل از کجاست
ممنون می شم.

saniak_robot
دوشنبه 04 اردیبهشت 1385, 12:28 عصر
خانم یا آقای رها من این برنامه رو نوشتم و جواب هم گرفتم .
الان تو شهرم نیستم فردا یا پس فردا واست میفرستم . لطفا آدرس ایمیلت و بنویس تا واست بفرستم .


موفق باشید .