いつもお世話になります。
ファイルを選択して、添付ファイルとしてメールを送りたいと考えております。デバックをするとエラーがないのですが、ボタンをクリックし、ファイルを選択すると指定されたパスのフォーマットはサポートされていません と表示されます。
ファイルを添付しないと、問題なく送る事が出来ます。
Imports System.Net.Mail
Public Class メール送信
Public msg As New MailMessage()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'宛先の確認
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged msg.From = New MailAddress("xxxxx@aaaa.co.jp", "●○サポート") msg.To.Add(New MailAddress("wwww@bbbbb.co.jp", "xxx課長")) If CheckBox1.Checked = True Then MessageBox.Show(CheckBox1.Text & "が選択されました。", "選択メッセージ")Else MessageBox.Show(CheckBox1.Text & "が解除されました。", "解除メッセージ") End If End Sub
Dim Ret As DialogResult
'ダイアログボックスの初期設定 With OpenFileDialog1
.Title = "ファイルの"
.CheckFileExists = True
.RestoreDirectory = True
End With
'ダイアログボックスを表示し、'[開く]ボタンがされたらファイル名を表示
Ret = OpenFileDialog1.ShowDialog()
If Ret = Windows.Forms.DialogResult.OK Then TextBox2.Text = "ファイル名:" _ & OpenFileDialog1.FileName Else
TextBox2.Text = "" End If
msg.Attachments.Add(New Attachment(TextBox2.Text)) End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'SMTPサーバーの指定 Dim client As New SmtpClient("SMTPサーバ")
'送信元の設定 msg.From = New MailAddre("xxxxx@aaaa.co.jp", "●○サポート")
Try ' メール送信 client.Send(msg) MessageBox.Show("送信しました!") Catch ex As SmtpException ' SMTPサーバーへの接続に失敗した場合 MessageBox.Show("送信出来ませんでした!")
End Try End Sub End Class
上記がコードになります。
ファイルのパスをコードで記入するのではなくて、ボタンを押した際に
選択したファイルを添付ファイルとして送りたいと考えております。
お忙しい所ご迷惑をお掛けしますが、
ご教授頂けないでしょうか?
私事で恐縮ですが、早めにご回答頂けると助かります。
最後まで長文、乱文を読んで頂きありがとうございました。
以上、宜しくお願い申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
#include <Windows.h>というヘ...
-
binファイルを解凍したいの...
-
アクセス 壊れた? 「ファイ...
-
バッチ処理で追記コピーしたい
-
ファイルが開かれているかどう...
-
既に開いているエクセルを閉じ...
-
実行ファイル(.exeファイル)...
-
Word VBA MSGBOX 内で降順表示
-
iniファイル
-
exeファイルをデータ転送サービ...
-
公文書のxmlファイルの開き方が...
-
「ブルーファイル」と「グリー...
-
jarファイル
-
frm、frxファイル
-
【VBA】EXCELブックを開かずに...
-
C言語---ファイルに出力したデ...
-
WININET.DLL FtpCommand(TYPE)...
-
.NETアプリを作ったときの .man...
-
reaper音声ファイルについて
-
ハッシュ値を取る時はファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセス 壊れた? 「ファイ...
-
#include <Windows.h>というヘ...
-
Latexで図番号だけを「図1.1」...
-
binファイルを解凍したいの...
-
.NETアプリを作ったときの .man...
-
ファイル構造が破損しているフ...
-
2つのファイルのバイナリをコン...
-
CSSを1ページに1枚作るのって変...
-
Word VBA MSGBOX 内で降順表示
-
公文書のxmlファイルの開き方が...
-
jarファイル
-
バッチ処理で追記コピーしたい
-
自分で作成した重要ファイルを...
-
ファイルは何で構成されている...
-
exeファイルをデータ転送サービ...
-
リンクの張り付けかたを教えて...
-
exeファイルの中身を見る方法は...
-
参照するファイルをワイルドカ...
-
CRCが一致する確率
-
C言語---ファイルに出力したデ...
おすすめ情報