تعدادی سوال( ارسال ایمیل،نمایش فایل ...)

[VisualStudio]

با سلام خدمت تمامی دوستان من تعدادی سوال در مورد ارسال ایمیل،نمایش فایل ... داشتم
1.من می خواستم یک فایل HTML که در داخل سی دی هست را با برنامم که در داخل سی دی هست باز کنم در داخل هارد مشکلی نیست اما وقتی که به داخل سی دی منتقلش می کنم می گه آدرس شما اشتباه هست


خواهشا پاسخ این سوال را بدید

[Alireza_Salehi]

1. Process.Start(mailto:xxx@xxx.com)
2. Process.Start("c:/program files")
3. در 2005 از کلاس System.Media.SoundPlayer می توانید برای پخش فایلهای wav استفاده کنید. برای فرمت های دیگه حتما باید از کامپوننت استفاده کنید مثل مدیا پلیر.
4. تعداد فایل های موجود بسیار زیاده و هر کدوم هم فرمتی خاص دارند ، منظورتون رو واضح تر بیان کنید (برای هر نوع فایلی باید کامپوننت مخصوص به اون نوع فایل استفاده بشه).

[VisualStudio]

Process.Start(mailto:xxx@xxx.com)

از این کد ایراد می گیره

[Alireza_Salehi]

از این کد ایراد می گیره
چه ایرادی میگیره ؟ من علم غیب ندارم!

[solmaz_zm]

از این کد ایراد می گیره

چه ایرادی می گیره؟

[eyes_shut_number1]

System.Diagnostic.Process.Start("mailto:xxx@xxx.com")

[saeed_rezaei]

سلام


System.Diagnostic.Process.Start("mailto:xxx@xxx.com")

کد بالا با استفاده از نرم افزار outlook نامه رو ارسال می کنه. یعنی باید قبلش نرم افزار outlook رو نصب کرده و حداقل یک account هم نصب کرده باشید.

[reza1357]

بنظر من بجای باز شدن OutLook بهتره فرمی طراحی کنید که عمل ارسال ایمیل رو برای شما انجام بده ، اینجور کاربران تازه وارد هم زیاد سردرگم نمیشن و به راحتی میتونند ایمیل برای شما ارسال کنند.

[eyes_shut_number1]

بنظر من بجای باز شدن OutLook بهتره فرمی طراحی کنید که عمل ارسال ایمیل رو برای شما انجام بده ، اینجور کاربران تازه وارد هم زیاد سردرگم نمیشن و به راحتی میتونند ایمیل برای شما ارسال کنند.
آره درسته!ولیچطوری!من همیشه از اوتلوک استفاده میکرم.میشه بگین چطوری؟

[VisualStudio]

من خودم ارسال ایمیل برای ایمیل های یاهو را بلدم اما من در همین حد می خوام

[eyes_shut_number1]

من خودم ارسال ایمیل برای ایمیل های یاهو را بلدم اما من در همین حد می خوام
چطوری؟اگه میشه بگو

[ghafoori]

با استفاده از کلاس های دات نت مثل System.Web.Mail.SmtpMail و کلاسهای داخل همین فضا System.Web.Mail شما فقط داخل سایت تو قسمت asp.net سرچ بزن بسیار سوال پرسیده و جواب داده شده

[VisualStudio]

چطوری میشه یک فایل را باز کرد با برنامه خودم نه خودش باز بشه مثلا یک فایل exe , JPG و ...
من که این سوالم را خیلی واضح مطرح کرده بودم اگر امکان داره دوستان جواب بدون منظور من با کردن فایل با خود برنامه نیست باز کردن به صورت مستقل
لطفا جواب بدید

[VisualStudio]

چطوری؟اگه میشه بگو

من کل کد اون را برای شما گزاشتم




PrivateSub btnsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsend.Click
btnsend.Enabled = False
Try
Dim message AsNew System.Web.Mail.MailMessage
With message
.From = textfrom.Text
.To = textto.Text
.Subject = textsubject.Text
.Body = textbody.Text
.BodyFormat = Web.Mail.MailFormat.Html

EndWith
If attachlistbox.Items.Count > 0 Then
Dim i AsInteger
For i = 0 To attachlistbox.Items.Count - 1
Dim msgattach AsNew System.Web.Mail.MailAttachment(attachlistbox.Items .Item(i).ToString)
message.Attachments.Add(msgattach)
Next
EndIf
Dim smtp As System.Web.Mail.SmtpMail
smtp.SmtpServer = "mta208.mail.scd.yahoo.com"
smtp.Send(message)
MessageBox.Show("ایمیل شما با موفقیت فرستاده شد", " amir_civil", MessageBoxButtons.OK)
Catch
MessageBox.Show("درارسال نیل اشکالی وجود دارد", "amir_civil", MessageBoxButtons.OK)
EndTry
btnsend.Enabled = True
EndSub
PrivateSub btnattach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnattach.Click
OpenFile.ShowDialog()
attachlistbox.Items.AddRange(OpenFile.FileNames)
attachlistbox.Visible = True
btnremove.Visible = True
EndSub

PrivateSub btnremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove.Click
If attachlistbox.Items.Count = 0 Then
MsgBox("There is no attachment to remove...")
ExitSub
EndIf
If attachlistbox.SelectedIndex <> -1 Then
attachlistbox.Items.RemoveAt(attachlistbox.Selecte dIndex)
attachlistbox.Refresh()
Else
MsgBox("Please select attachment...")
EndIf
EndSub

PrivateSub OpenFile_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFile.FileOk
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
MsgBox("فرستادن میل در یاهو", MsgBoxStyle.OKOnly, "amir_civil")
EndSub

[MAiLDEREMi]

با تشکر

فکر کنم اگه یک کم حوصله رو بیاری تو کار بهتر باشه

این کد چندتا اشکال داشت:
1- PrivateSub تبدیل شده به Private Sub
2- AsNew باید تبدیل مشد به As New
3- ...
4- مهمترین جاش اینه که System.Web.Mail وجود نداره چه برسه به System.Web.Mail.MailAttachment



Public Class Form1
Private Sub btnsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsend.Click
btnsend.Enabled = False

Try

Dim message As New System.Web.Mail.MailMessage
With message
.From = textfrom.Text
.To = textto.Text
.Subject = textsubject.Text
.Body = textbody.Text
.BodyFormat = Web.Mail.MailFormat.Html
End With

If attachlistbox.Items.Count > 0 Then

Dim i As Integer

For i = 0 To attachlistbox.Items.Count - 1
Dim msgattach As New System.Web.Mail.MailAttachment(attachlistbox.Items .Item(i).ToString)
message.Attachments.Add(msgattach)
Next

End If

Dim smtp As System.Web.Mail.SmtpMail
smtp.SmtpServer = "mta208.mail.scd.yahoo.com"

smtp.Send(message)
MessageBox.Show("ایمیل شما با موفقیت فرستاده شد", " amir_civil", MessageBoxButtons.OK)
Catch

MessageBox.Show("درارسال نیل اشکالی وجود دارد", "amir_civil", MessageBoxButtons.OK)
End Try

btnsend.Enabled = True

End Sub

Private Sub btnattach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnattach.Click
OpenFile.ShowDialog()
attachlistbox.Items.AddRange(OpenFile.FileNames)
attachlistbox.Visible = True

btnremove.Visible = True

End Sub

Private Sub btnremove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnremove.Click
If attachlistbox.Items.Count = 0 Then

MsgBox("There is no attachment to remove...")
Exit Sub

End If

If attachlistbox.SelectedIndex <> -1 Then

attachlistbox.Items.RemoveAt(attachlistbox.Selecte dIndex)
attachlistbox.Refresh()
Else

MsgBox("Please select attachment...")
End If

End Sub

Private Sub OpenFile_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFile.FileOk
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
MsgBox("فرستادن میل در یاهو", MsgBoxStyle.OkOnly, "amir_civil")
End Sub
End Class


ولی باز هم متشکر :تشویق:

[VisualStudio]

1.من می خواستم یک فایل HTML که در داخل سی دی هست را با برنامم که در داخل سی دی هست باز کنم در داخل هارد مشکلی نیست اما وقتی که به داخل سی دی منتقلش می کنم می گه آدرس شما اشتباه هست

[eyes_shut_number1]

دوست عزیز MAiLDEREMi (http://barnamenevis.org/forum/member.php?u=26068) ); بهتره شما هم دقت کنی که ادیتور کد این سایت این مشکل را داره!
مشکل که نه سبکشه!
پس از پسر مردم ایراد نگیر :D

با تشکر

[VisualStudio]

دوست عزیز MAiLDEREMi (http://barnamenevis.org/forum/member.php?u=26068) من این کد را با VS نوشتم بعد باید اون ها هم Imports کنی