VBでメールを送信したいのですが、どうすればいいか見当もつきません。
できれば、添付ファイルを送信できるようにしたいのです。
だれか教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

私のお勧めは、BASP21かCOM版BlatJです。


特にIISなどで良く使われており、プロも使用しています。

http://www.hi-ho.ne.jp/babaq/basp21.html
http://www.piedey.co.jp/blatj/index.html
    • good
    • 0
この回答へのお礼

basp21のHP見てきましたが、できることが多すぎて難しそうです。
でも、メール送受信のサンプルがあったので、何とか試してみます。
ありがとうございました。

(これだけできてフリーってすごいですね。)

もう一つの方はNT用ですね。うちはMEなので縁がありませんでした。

お礼日時:2001/06/04 17:36

日立東北ソフトウエアーのメール送受信用


ActiveXコンポーネントがおすすめです。
非常に使いやすいですよ。試用版がダウンロードできます。

参考URL:http://www.hitachi-to.co.jp/
    • good
    • 0
この回答へのお礼

試用版をダウンロードして使ってみましたが、大変すばらしかったです。
でも、ちょっと高いかな。(値段)
私には無理です。
おしえてくれてありがとうございました。

お礼日時:2001/06/04 17:26

フリーウエアも幾つかあります


おすすめはこれ↓

参考URL:http://www.vector.co.jp/soft/win95/prog/se154742 …
    • good
    • 0
この回答へのお礼

これから試してみますが、メールボックスの監視もさせたいのでちょっと・・・。
実は、家のパソコンを電源入れっぱなしにして出先からパスとアドレスを指定するメールを送ったら指定のファイルを送信してくれるソフトを作ろうと思っていたんです。

お礼日時:2001/06/04 17:30

VBでのメール送受信なら文化オリエント社のiNetMail(だったかな?)っていうActiveXを使えば非常に簡単にできます。

(でも・・購入代金が高いから標準のActiveXでも出来なくは無いのでそれで頑張るかな? ・・どちらでも同じようなことをしなければいけません。)
    • good
    • 0

VBでというより、メールの送受信をしたいがどうすればいいかわからない、ということですよね?メールのやりとりがわかっているなら、VBでも作ることができます。



メールのやりとりの仕組みについてはたぶん憶えなければいけないことが多いと思いますので、ActiveXコントロールなどを使って作られることを薦めます。
「ActiveX」「メール」「コントロール」等をキーワードにして検索サイトで検索するといいでしょう。

この回答への補足

なるほど、Mscomm32.ocx ActiveX コントロールのことでしょうか?
なんか難しそうですね。
VBの、プロジェクト-参照設定で、何かチェックすればできそうな感じがしたんですが、見当違いでしょうか。

補足日時:2001/06/04 17:00
    • good
    • 0
この回答へのお礼

書くところまちがえました。
どうもありがとうございました。

お礼日時:2001/06/04 17:38

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qメールの署名設定

メールの署名設定がリッチテキスト形式のなっていて、テキスト形式に代えると青字のアドレスが黒字になってしまします。
返信の場合は変えても大丈夫なのですが、どうすればテキスト形式に変更できますか?

Aベストアンサー

オプションでテキスト形式で作成するようにしていますよね?
それでもリッチテキストになってしまうのですか?
返信するときに元のメールと同じ形式にする、とかしてます?

それ以外に設定はありません。
これでもおかしいなら、IEを再インストールしてみましょう。

QVBで添付ファイル付きのメールを送信したい

こんにちは。いつもお世話になっております。

現在、VB6.0でメーラーを起動し、そこへ添付ファイルを付けて送信を行うと言う作業を行っております。
ユーザー側で、実行ボタンを押したときに送信まで行ってしまうか、送信はせず、新規メールの起動だけで終るかを選択できるようになっています。
自分なりに色々と調べて、MAPIを使用したプログラムでの操作はできたのですが、テストメーラーをOutlook ExpressからMicrosoft Outlookに変更したら、送信部分が上手く動作しませんでした。
どのメーラーでも上手く動くように設定したいのですが、何か方法はありませんでしょうか?
また、送信時に出てしまう確認メッセージを出さずに自動送信する方法はありますか?MAPIを使用せずに添付ファイル付きのメールを送信する方法でも構いません。
宜しくお願い致します。

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose

MAPIMessages1.RecipType = mapToList
'あて先欄に表示させたい文字
MAPIMessages1.RecipDisplayName = "テストさん"
'あて先のメールアドレス
MAPIMessages1.RecipAddress = "SMTP:メールアドレス"
MAPIMessages1.MsgSubject = "納品明細"
MAPIMessages1.MsgNoteText = "本文内容" & vbCrLf
MAPIMessages1.AttachmentPathName = App.Path & "\納品明細.xls"

'チェック有りの場合は自動送信
If chkAuto.Value = 0 Then
 'Falseにすると自動送信になります
 MAPIMessages1.Send True
Else
 MAPIMessages1.Send False
End If

MAPISession1.SignOff

こんにちは。いつもお世話になっております。

現在、VB6.0でメーラーを起動し、そこへ添付ファイルを付けて送信を行うと言う作業を行っております。
ユーザー側で、実行ボタンを押したときに送信まで行ってしまうか、送信はせず、新規メールの起動だけで終るかを選択できるようになっています。
自分なりに色々と調べて、MAPIを使用したプログラムでの操作はできたのですが、テストメーラーをOutlook ExpressからMicrosoft Outlookに変更したら、送信部分が上手く動作しませんでした。
どのメーラーでも上手...続きを読む

Aベストアンサー

質問です。

>Outlook ExpressからMicrosoft Outlookに変更したら、送信部分が上手く動作しませんでした。

送信部分とは?
>MAPISession1.SignOff
ですか?

エラーが出たのですか?

エラーが出たのであれば、エラー番号とエラー内容を公開してくれませんか?

もしかしたらですが、、、単にOutlookのセキュリティ設定かもしれないので。。。

QOutlook 2003 メール返信時の署名のずれについて

よろしくお願いします。
現在の設定
【OS】 Windows XP
【メール】 OutLook 2003
【形式】  HTML
【フォント】MS P明朝 新規・返信すべて
【署名】 返信時、新規作成時に設定

メールを返信する際に、署名を設定しているのですが、
相手のフォントが自分のフォントと違っている
場合、署名がずれておかしな形になります。
どんなフォントでも署名がずれないやり方って
ありますでしょうか?

Aベストアンサー

基本的にありません。

もともとメールは単なるテキストです。
質問者さんは、HTML形式でメールを送られているようですが、
メールを受け取った方が、HTMLメールに対応していなければ、
文字サイズやフォントはすべて無効になり、
相手の環境に依存します。

また、HTMLメールで同じフォントを指定している場合でも、
Windows XPとVistaでは、見え方が異なるようです。

メールの署名を凝ったものにするのも結構ですが、
ちょっとでもずれると表示が激しく乱れるようなものは
避けた方が無難と思います。

Qカスタムコントロール作ってます(VB.NET)。VB.Net にVB.6のActiveX作成時にあったプロパティページ作成ができないようですが

タイトルどうりです。VBNETのカスタムコントロールでデザインモードにおけるフォームつまりプロパティページやビジュアルにプロパティボックスから設定できるようにしたいのですが、どうしたらできるでしょうか?VB6ではできたのですが、(Activexコントロール)。

よろしくお願いします。

Aベストアンサー

通常のプロパティと同じように、プロパティ ウィンドウに項目を表示して設定できるようにする必要があります。
具体的には、
1. カスタム コントロールのクラスに外部公開する Property プロシージャを作成して、内部で値を保存できるようにする。
2. そのプロパティの宣言部分で、プロパティ ウィンドウに表示するように指示する属性値を設定する。

こんな感じです。

参考URL:http://www.atmarkit.co.jp/fdotnet/winexp/winexp02/winexp02_01.html

Qアウトルックのメール送信時に手動で署名を入れたいのですが

アウトルック200のメール送信時に、通常は署名を入れない状態にしておいて、必要な時にだけ手動で入れるようにするにはどうすれば良いのでしょうか?
メール本文作成画面で、挿入から定型句の中の署名を選んで入れることはできるのですが、それだと、ツールのオプションののメール形式の中の署名で作成された署名が入力されずに、ただ単純に名前だけ入力されます。
アウトルックのヘルプを見たら、メール作成のエディタをワードにした時とアウトルックにした時とでは違うらしく、ワードをエディタとして選んだ場合、手動で入力される署名は、ワード起動時に入力した使用者名が挿入されるとのこと。
ならば、アウトルック上で作った署名を手動で入力するには、エディタをアウトルックにしないと不可能なのでしょうか?
それと、エディタをワードにした場合とアウトルックにした場合とでは何が違うのでしょうか?どちらの方が便利でしょうか?

Aベストアンサー

アウトルック2000を使ってます。
アウトルックのツールメニューのオプションでメール形式を選びます。
ここでたくさんの署名を作る事が出来ます。
私の場合、遊び感覚や正式な署名など色々作っています。
私は通常使用頻度の高い署名を設定してます。

テキストメール・HTMLメール・雛型メールについての署名の事。

メールを書くとき署名が既に入る設定にしていますが、その署名を使いたくないときは、面倒でもデリートで裂く一旦削除します。
メール作成画面で、挿入メニューの署名を選択すると、たくさん作った署名にタイトルを付けてありますので数ある署名から適宜を選びます。


ワードなどのオフィスドキュメントのメールについての事。

ワードエディターでの署名はワードのツールメニューの中のオプションの全般タブに電子メールオプションがあります。
その中で電子メール用の署名を作ります。そこでも色々な署名が出来ます。
そこで各種作るとワードメールを使った場合、挿入から署名を選ぶとワード起動時の使用者名の他にも、先ほど作った署名を任意に選ぶ事が出来ます。

余談ですが、動画のイラスト入り署名も出来ますよ。


説明が下手で申しわけありません。
わからなかったら補足します。

間違いなく出来ますよ。
色々署名で楽しんでいます。

(奥が深いです)

アウトルック2000を使ってます。
アウトルックのツールメニューのオプションでメール形式を選びます。
ここでたくさんの署名を作る事が出来ます。
私の場合、遊び感覚や正式な署名など色々作っています。
私は通常使用頻度の高い署名を設定してます。

テキストメール・HTMLメール・雛型メールについての署名の事。

メールを書くとき署名が既に入る設定にしていますが、その署名を使いたくないときは、面倒でもデリートで裂く一旦削除します。
メール作成画面で、挿入メニューの署名を選択すると、...続きを読む

QVB2010で配付した添付ファイルが読み取れない

Visual Sutudio にて ほかのPCでCDなどで配布するためのインストーラをつくりましたが、
配布先(Windows7,WindowsXPとも)でどうしても AAA.mdbファイルがみつからない、というエラーになります。
エラーがでないように正常に動作させるにはをどうしたよいでしょうか?

たとえば、このAAA.mabファイルを使用すると、以下のエラーが表示されます。

アプリケーションのコンポーネントで、ハンドルされていない例外が発生しました。
[続行]をクリックすると、アプリケーションはこのエラーを無視し、続行しようとします。
[終了]をクリックすると、アプリケーションは直ちに終了します。
ファイル'C:\Documents and Setting\***\Local Settings\Apps\2.0\M2XB***.G17\5KL3***4.7WK\
****tion_0000000000******\AAA.mdb' が見つかりませんでした。

上記のフォルダに AAA.mdbをコピーするとプログラムは正常に動きます。
自分のPCでは特にコピーせずとも正常に動きます。
また、
Apps\2.0\M2XB***.G17\5KL3***4.7WK\****tion_0000000000******\AAA.mdbには、mdbファイルが
ないのですが、
Apps\2.0\M2XB***.G17\5KL3***4.7WK\****exe_0000000000******\AAA.mdbには、mdbファイルが
入っています。

Visual Sutudio のなかで、サーバーエクスプローラのデータ接続に AAA.mdbファイルが入っているのですが、
そのアイコンのところに ”X”が赤ででるのも気になります。

また、起動条件のなかの .NET Framework にも”!”マークがついています。

さらに(関係ないと思いますが)Visual Sutudioで、プロジェクトを開くと
とエラーがあり、ソリューションエクスプローラで見つかった依存関係を
ダブルクリックすると消えます。

Visual Sutudio にて ほかのPCでCDなどで配布するためのインストーラをつくりましたが、
配布先(Windows7,WindowsXPとも)でどうしても AAA.mdbファイルがみつからない、というエラーになります。
エラーがでないように正常に動作させるにはをどうしたよいでしょうか?

たとえば、このAAA.mabファイルを使用すると、以下のエラーが表示されます。

アプリケーションのコンポーネントで、ハンドルされていない例外が発生しました。
[続行]をクリックすると、アプリケーションはこのエラーを無視し、続行しよ...続きを読む

Aベストアンサー

> C:\Documents and Setting\***\Local Settings\Apps\2.0\
ClickOnceキャッシュ領域ですね。
AAA.mdbファイルを配布するにはコンテンツとして登録する
必要があるわけですが、ClickOnceの設定で実行したファイルの
登録手順を教えて下さい。

QMicrosoft Office Outlookメール文に署名貼付で

Microsoft Office Outlookメールを利用しております。
Outlook expressの時は、メール文中に署名の貼付が、メニュー[挿入]、[署名]から署名を挿入できましたが、Microsoft Office Outlookでは、どのようにすれば良いのでしょうか、よろしく、お願い致します。

Aベストアンサー

Microsoft Office : Office Outlook 2003 コミュニケーション テクニック - 署名を作成してメールを使い分けたい!
http://www.microsoft.com/japan/office/previous/2003/experience/workstyle/tips/outlook/tips3.mspx

Outlook 2007 で電子メールの署名を作成する方法
http://support.microsoft.com/kb/931825/ja

QVB初心者です。メールから添付ファイルを取り出したいです。

Outlookメール(.msg)から添付ファイルのみ取り出すコーディングをサンプルなどで教えてほしいです。
Outlookから「:C¥メール」にmsgファイルを手動で移し、そこからVBにて「:C¥添付ファイル」に添付ファイルのみを取り出したいです。

Aベストアンサー

>できましたー!
>ありがとうございます。

それはよかったです。今回は、まさかの、そのまさかでした。
やっと来ましたね。ほっとしています。

>一点だけ、添付ファイルが画像データとPDFの二種類あるのですが、PDFのみ抜き出しとかできますか?

最後の行から遡って、'** でつけたように、If ~ End If で挟みます。
今は、pdf ファイルのみというスタイルになっています。
画像データとpdf 2つ以上がある時に、pdf ファイルのみという方法ですと、少し複雑になります。

Sub SaveEachItem()



 For Each att In AttachedItems
    With att
      If StrConv(.FileName, vbLowerCase) Like "*.pdf" Then '**
      .SaveAsFile strAttPath & "\" & .FileName
      End If     '**
    End With
  Next
  Beep
EndLine:
  Set objFS = Nothing
  Set AttachedItems = Nothing
End Sub

>できましたー!
>ありがとうございます。

それはよかったです。今回は、まさかの、そのまさかでした。
やっと来ましたね。ほっとしています。

>一点だけ、添付ファイルが画像データとPDFの二種類あるのですが、PDFのみ抜き出しとかできますか?

最後の行から遡って、'** でつけたように、If ~ End If で挟みます。
今は、pdf ファイルのみというスタイルになっています。
画像データとpdf 2つ以上がある時に、pdf ファイルのみという方法ですと、少し複雑になります。

Sub SaveEachItem()



 For Eac...続きを読む

Qヤフーメールで署名がつけられない

ヤフーのメールを使っています。昨日あたりに突然仕様変更がありました。

そして、メール作成画面の下にあった、「メールに署名を入れる」とかいうボタンが見当たらなくなりました。この仕様で署名を入れるにはどうすればいいのでしょうか?

設定画面の「全てのメールに署名を入れる」だと、個人的には都合が悪いです。あと、これにチェックを入れて自分にテスト送信してみても、署名がありませんでした。

勝手に仕様変えるのって不便極まりないですね。

Aベストアンサー

#1です。

私は、YahooBB会員ですが、署名の入り具合を確認しました。

Yahooの契約IDのybb.ne.jpでの送信では、メールオプションの「メールアドレスの追加・編集・削除」の編集で作成した署名が、

yahoo.co.jpでの送信では、メールオプションの「署名」の項目で作成した署名が、「すべての送信メールに署名を付ける」を有効にすると、そのまま本文にそれぞれの署名が自動的に入るようです。

従って、作成画面での「利用する」のチェック入れは無くなって、不要であれば、本文から削除する必要があります。

追加アドレスでも使う署名はそれぞれ会員IDと同じですが、「署名を利用する」のチェックを入れる項目は作成画面にあって、チェックを入れてそのまま送信するとそのメールに自動的に入るようです。

まだ、完全にすべてのIDに行き渡っていない仕様のようですが、確認した状況はそのようになっていました。

QVB2008でSMTPコードを用いて添付ファイルをメールで送るコードについて

いつもお世話になります。
ファイルを選択して、添付ファイルとしてメールを送りたいと考えております。デバックをするとエラーがないのですが、ボタンをクリックし、ファイルを選択すると指定されたパスのフォーマットはサポートされていません と表示されます。
ファイルを添付しないと、問題なく送る事が出来ます。
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

上記がコードになります。
ファイルのパスをコードで記入するのではなくて、ボタンを押した際に
選択したファイルを添付ファイルとして送りたいと考えております。

お忙しい所ご迷惑をお掛けしますが、
ご教授頂けないでしょうか?

私事で恐縮ですが、早めにご回答頂けると助かります。
最後まで長文、乱文を読んで頂きありがとうございました。
以上、宜しくお願い申し上げます。

いつもお世話になります。
ファイルを選択して、添付ファイルとしてメールを送りたいと考えております。デバックをするとエラーがないのですが、ボタンをクリックし、ファイルを選択すると指定されたパスのフォーマットはサポートされていません と表示されます。
ファイルを添付しないと、問題なく送る事が出来ます。
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) Han...続きを読む

Aベストアンサー

TextBox2.Text = "ファイル名:" & OpenFileDialog1.FileName

単に["ファイル名:"]という余計な文字が含まれているだけではない?


現在送信できてきるのであれば
TextBox2.Text = OpenFileDialog1.FileName

とするとできるかも


人気Q&Aランキング

おすすめ情報