QA@IT
«質問へ戻る

139
本文
 
 (Form1)
 Public Class Form1
-    
-      Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
-        Form2.Show()
-        Form2.Activate()
 
-        Dim mailMsg As New System.Net.Mail.MailMessage()
-        Dim strpath As String = "C:\ERROR.bmp"
-        Form2.attachments.Items.Add(strpath)
-        Dim attach1 As New System.Net.Mail.Attachment("C:\ERROR.bmp")
-        mailMsg.Attachments.Add(attach1)
+Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 
-   End Sub
+Form2.Show()
+Form2.Activate()
+Dim mailMsg As New System.Net.Mail.MailMessage()
+Dim strpath As String = "C:\ERROR.bmp"
+Form2.attachments.Items.Add(strpath)
+Dim attach1 As New System.Net.Mail.Attachment("C:\ERROR.bmp")
+mailMsg.Attachments.Add(attach1)
+
+End Sub
+
 End Class
 
 (Form2)
 Imports System.Net.Mail
 Imports System.Text
-
 Public Class Form2
 
-    Inherits System.Windows.Forms.Form
-    Dim arlAttachments As ArrayList
+Inherits System.Windows.Forms.Form
+Dim arlAttachments As ArrayList
 
-    Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click
+Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click
       
-        Dim mailMsg As New MailMessage(New MailAddress(from.Text.Trim, TextBox4.Text), New MailAddress(ToAddress.Text.Trim))
-        With mailMsg
+Dim mailMsg As New MailMessage(New MailAddress(from.Text.Trim, TextBox4.Text), New MailAddress(ToAddress.Text.Trim))
+With mailMsg
            
-            .Subject = textbox2.Text
-            .Body = textbox3.Text
+.Subject = textbox2.Text
+.Body = textbox3.Text
+Dim subject As String = textbox2.Text
+Dim body As String = textbox3.Text
 
-            Dim subject As String = textbox2.Text
-            Dim body As String = textbox3.Text
+If Not IsNothing(arlAttachments) Then
+Dim mailAttachment As Attachment
+For Each mailAttachment In arlAttachments
+.Attachments.Add(mailAttachment)
+Next
+Else
+MessageBox.Show("添付確認")
+Exit Sub
+End If
+End With
 
-            If Not IsNothing(arlAttachments) Then
-                Dim mailAttachment As Attachment
-                For Each mailAttachment In arlAttachments
-                    .Attachments.Add(mailAttachment)
-                Next
-            Else
-                MessageBox.Show("添付確認")
-                Exit Sub
-            End If
-        End With
+Try
+Dim Client As New System.Net.Mail.SmtpClient()
+Client.Host = "server名"
+Client.Port = ポート番号
+Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
+Client.Credentials = New System.Net.NetworkCredential("ユーザ名", "パスワード")
+Client.Send(mailMsg)
+attachments.Items.Clear()
+attachments.Items.Add("(No Attachments)")
+MessageBox.Show("メール送信OK!")
+Catch exp As Exception
+MessageBox.Show("エラー発生!")
+End Try
 
-        Try
-            Dim Client As New System.Net.Mail.SmtpClient()
-            Client.Host = "server名"
-            Client.Port = ポート番号
-            Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
-            Client.Credentials = New System.Net.NetworkCredential("ユーザ名", "パスワード")
-            Client.Send(mailMsg)
-             attachments.Items.Clear()
-             attachments.Items.Add("(No Attachments)")
-
-            MessageBox.Show("メール送信OK!")
-        Catch exp As Exception
-            MessageBox.Show("エラー発生!")
-        End Try
-    End Sub
+End Sub
 
 End Class
 

リストボックスへのファイル添付方法について

メール送信プログラムを作成しております。
Form1のボタン2をクリックし、Form2を立ち上げます。
Fomr2のリストボックスにファイル名が表示され、sendボタンをクリックします。
添付確認と表示され、メール送信を行う事が出来ません。
(リストボックスにはファイルパスとファイル名が表示されます⇒c:\ERROR.bmp)
リストボックスに表示されているだけで、実際には添付されていない状態です。
ファイルを添付してメール送信を行いたいと思っているのですが、ご教授下さい。
添付ファイルは、Cドライブの中にあるERROR.bmpというファイルです。

(Form1)
Public Class Form1

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Form2.Show()
Form2.Activate()
Dim mailMsg As New System.Net.Mail.MailMessage()
Dim strpath As String = "C:\ERROR.bmp"
Form2.attachments.Items.Add(strpath)
Dim attach1 As New System.Net.Mail.Attachment("C:\ERROR.bmp")
mailMsg.Attachments.Add(attach1)

End Sub

End Class

(Form2)
Imports System.Net.Mail
Imports System.Text
Public Class Form2

Inherits System.Windows.Forms.Form
Dim arlAttachments As ArrayList

Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click

Dim mailMsg As New MailMessage(New MailAddress(from.Text.Trim, TextBox4.Text), New MailAddress(ToAddress.Text.Trim))
With mailMsg

.Subject = textbox2.Text
.Body = textbox3.Text
Dim subject As String = textbox2.Text
Dim body As String = textbox3.Text

If Not IsNothing(arlAttachments) Then
Dim mailAttachment As Attachment
For Each mailAttachment In arlAttachments
.Attachments.Add(mailAttachment)
Next
Else
MessageBox.Show("添付確認")
Exit Sub
End If
End With

Try
Dim Client As New System.Net.Mail.SmtpClient()
Client.Host = "server名"
Client.Port = ポート番号
Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Client.Credentials = New System.Net.NetworkCredential("ユーザ名", "パスワード")
Client.Send(mailMsg)
attachments.Items.Clear()
attachments.Items.Add("(No Attachments)")
MessageBox.Show("メール送信OK!")
Catch exp As Exception
MessageBox.Show("エラー発生!")
End Try

End Sub

End Class

長文を最後まで読んで下さりありがとうございました。
ご教授の程宜しくお願い申し上げます。

メール送信プログラムを作成しております。
Form1のボタン2をクリックし、Form2を立ち上げます。
Fomr2のリストボックスにファイル名が表示され、sendボタンをクリックします。
添付確認と表示され、メール送信を行う事が出来ません。
(リストボックスにはファイルパスとファイル名が表示されます⇒c:\ERROR.bmp)
リストボックスに表示されているだけで、実際には添付されていない状態です。
ファイルを添付してメール送信を行いたいと思っているのですが、ご教授下さい。 
添付ファイルは、Cドライブの中にあるERROR.bmpというファイルです。

(Form1)
Public Class Form1

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Form2.Show()
Form2.Activate()
Dim mailMsg As New System.Net.Mail.MailMessage()
Dim strpath As String = "C:\ERROR.bmp"
Form2.attachments.Items.Add(strpath)
Dim attach1 As New System.Net.Mail.Attachment("C:\ERROR.bmp")
mailMsg.Attachments.Add(attach1)

End Sub

End Class

(Form2)
Imports System.Net.Mail
Imports System.Text
Public Class Form2

Inherits System.Windows.Forms.Form
Dim arlAttachments As ArrayList

Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click
      
Dim mailMsg As New MailMessage(New MailAddress(from.Text.Trim, TextBox4.Text), New MailAddress(ToAddress.Text.Trim))
With mailMsg
           
.Subject = textbox2.Text
.Body = textbox3.Text
Dim subject As String = textbox2.Text
Dim body As String = textbox3.Text

If Not IsNothing(arlAttachments) Then
Dim mailAttachment As Attachment
For Each mailAttachment In arlAttachments
.Attachments.Add(mailAttachment)
Next
Else
MessageBox.Show("添付確認")
Exit Sub
End If
End With

Try
Dim Client As New System.Net.Mail.SmtpClient()
Client.Host = "server名"
Client.Port = ポート番号
Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Client.Credentials = New System.Net.NetworkCredential("ユーザ名", "パスワード")
Client.Send(mailMsg)
attachments.Items.Clear()
attachments.Items.Add("(No Attachments)")
MessageBox.Show("メール送信OK!")
Catch exp As Exception
MessageBox.Show("エラー発生!")
End Try

End Sub

End Class

長文を最後まで読んで下さりありがとうございました。
ご教授の程宜しくお願い申し上げます。

質問を投稿

リストボックスへのファイル添付方法について

メール送信プログラムを作成しております。
Form1のボタン2をクリックし、Form2を立ち上げます。
Fomr2のリストボックスにファイル名が表示され、sendボタンをクリックします。
添付確認と表示され、メール送信を行う事が出来ません。
(リストボックスにはファイルパスとファイル名が表示されます⇒c:\ERROR.bmp)
リストボックスに表示されているだけで、実際には添付されていない状態です。
ファイルを添付してメール送信を行いたいと思っているのですが、ご教授下さい。
添付ファイルは、Cドライブの中にあるERROR.bmpというファイルです。

(Form1)
Public Class Form1

  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Form2.Show()
    Form2.Activate()

    Dim mailMsg As New System.Net.Mail.MailMessage()
    Dim strpath As String = "C:\ERROR.bmp"
    Form2.attachments.Items.Add(strpath)
    Dim attach1 As New System.Net.Mail.Attachment("C:\ERROR.bmp")
    mailMsg.Attachments.Add(attach1)

End Sub
End Class

(Form2)
Imports System.Net.Mail
Imports System.Text

Public Class Form2

Inherits System.Windows.Forms.Form
Dim arlAttachments As ArrayList

Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click

    Dim mailMsg As New MailMessage(New MailAddress(from.Text.Trim, TextBox4.Text), New MailAddress(ToAddress.Text.Trim))
    With mailMsg

        .Subject = textbox2.Text
        .Body = textbox3.Text

        Dim subject As String = textbox2.Text
        Dim body As String = textbox3.Text

        If Not IsNothing(arlAttachments) Then
            Dim mailAttachment As Attachment
            For Each mailAttachment In arlAttachments
                .Attachments.Add(mailAttachment)
            Next
        Else
            MessageBox.Show("添付確認")
            Exit Sub
        End If
    End With

    Try
        Dim Client As New System.Net.Mail.SmtpClient()
        Client.Host = "server名"
        Client.Port = ポート番号
        Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
        Client.Credentials = New System.Net.NetworkCredential("ユーザ名", "パスワード")
        Client.Send(mailMsg)
         attachments.Items.Clear()
         attachments.Items.Add("(No Attachments)")

        MessageBox.Show("メール送信OK!")
    Catch exp As Exception
        MessageBox.Show("エラー発生!")
    End Try
End Sub

End Class

長文を最後まで読んで下さりありがとうございました。
ご教授の程宜しくお願い申し上げます。

メール送信プログラムを作成しております。
Form1のボタン2をクリックし、Form2を立ち上げます。
Fomr2のリストボックスにファイル名が表示され、sendボタンをクリックします。
添付確認と表示され、メール送信を行う事が出来ません。
(リストボックスにはファイルパスとファイル名が表示されます⇒c:\ERROR.bmp)
リストボックスに表示されているだけで、実際には添付されていない状態です。
ファイルを添付してメール送信を行いたいと思っているのですが、ご教授下さい。 
添付ファイルは、Cドライブの中にあるERROR.bmpというファイルです。

(Form1)
Public Class Form1
    
      Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Form2.Show()
        Form2.Activate()

        Dim mailMsg As New System.Net.Mail.MailMessage()
        Dim strpath As String = "C:\ERROR.bmp"
        Form2.attachments.Items.Add(strpath)
        Dim attach1 As New System.Net.Mail.Attachment("C:\ERROR.bmp")
        mailMsg.Attachments.Add(attach1)

   End Sub
End Class

(Form2)
Imports System.Net.Mail
Imports System.Text

Public Class Form2

    Inherits System.Windows.Forms.Form
    Dim arlAttachments As ArrayList

    Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click
      
        Dim mailMsg As New MailMessage(New MailAddress(from.Text.Trim, TextBox4.Text), New MailAddress(ToAddress.Text.Trim))
        With mailMsg
           
            .Subject = textbox2.Text
            .Body = textbox3.Text

            Dim subject As String = textbox2.Text
            Dim body As String = textbox3.Text

            If Not IsNothing(arlAttachments) Then
                Dim mailAttachment As Attachment
                For Each mailAttachment In arlAttachments
                    .Attachments.Add(mailAttachment)
                Next
            Else
                MessageBox.Show("添付確認")
                Exit Sub
            End If
        End With

        Try
            Dim Client As New System.Net.Mail.SmtpClient()
            Client.Host = "server名"
            Client.Port = ポート番号
            Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
            Client.Credentials = New System.Net.NetworkCredential("ユーザ名", "パスワード")
            Client.Send(mailMsg)
             attachments.Items.Clear()
             attachments.Items.Add("(No Attachments)")

            MessageBox.Show("メール送信OK!")
        Catch exp As Exception
            MessageBox.Show("エラー発生!")
        End Try
    End Sub

End Class

長文を最後まで読んで下さりありがとうございました。
ご教授の程宜しくお願い申し上げます。