ArianProg
چهارشنبه 23 آذر 1390, 20:15 عصر
با سلام من بلدم که یک فایل را ضمیمه ایمیل کنم و با موفقیت بفرستم .
Dim MyMailMessage As New MailMessage
Dim MsgAttachment As New Attachment("C:\123.txt")
MyMailMessage.From = New MailAddress(user)
MyMailMessage.To.Add(user)
MyMailMessage.Subject = "S"
MyMailMessage.Attachments.Add(MsgAttachment)
Dim SMTP As New SmtpClient("smtpclient")
SMTP.Port =smtp port
SMTP.Credentials = New System.Net.NetworkCredential(user, pass)
SMTP.EnableSsl = True
SMTP.Send(MyMailMessage)
اما نمیدونم که چطوری برای تعدادی فایل که در یک فولدر هستند و پسوندشون یکیه این کارو بکنم؟
مثلا 10 تا فایل با نام مختلف و پسوند تکست .
اگه میشه بعد بگین چطوری کدش رو بنویسم که فایل هایی که ارسال کرده رو بعد از ارسال موفقیت آمیز پاک کنه ؟
دقت کنید فقط فایل های که ارسال کرده ها چون تو این پوشه مرتب فایل های تکست ساخته میشه با یه تایمر.
ممنون.
Dim MyMailMessage As New MailMessage
Dim MsgAttachment As New Attachment("C:\123.txt")
MyMailMessage.From = New MailAddress(user)
MyMailMessage.To.Add(user)
MyMailMessage.Subject = "S"
MyMailMessage.Attachments.Add(MsgAttachment)
Dim SMTP As New SmtpClient("smtpclient")
SMTP.Port =smtp port
SMTP.Credentials = New System.Net.NetworkCredential(user, pass)
SMTP.EnableSsl = True
SMTP.Send(MyMailMessage)
اما نمیدونم که چطوری برای تعدادی فایل که در یک فولدر هستند و پسوندشون یکیه این کارو بکنم؟
مثلا 10 تا فایل با نام مختلف و پسوند تکست .
اگه میشه بعد بگین چطوری کدش رو بنویسم که فایل هایی که ارسال کرده رو بعد از ارسال موفقیت آمیز پاک کنه ؟
دقت کنید فقط فایل های که ارسال کرده ها چون تو این پوشه مرتب فایل های تکست ساخته میشه با یه تایمر.
ممنون.