エクセルのシートに送信ボタンを設け、Sendmail メッソッドで、ブックのをメールでおくるようにしました。POP before SMTPのため?、スムースにいきません。なにか良い方法はないでしょうか? 

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/05/24 17:30:35
  • 終了:--

回答(6件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982005/05/10 17:39:41

ポイント15pt

一度、受信処理をしてから、送信処理をすればいいだけです。


Excelのバージョンや、どのように記述しているのかを明記してもらえれば、具体的に回答できるかもしれません。

id:typista No.2

typista回答回数359ベストアンサー獲得回数72005/05/10 18:38:16

ポイント15pt

http://www.forest.impress.co.jp/article/2001/08/17/okiniiri.html

���̓m - �y�����̂��C�ɓ����z���[�J���}�V���p���[���T�[�o�[�uProxySMTPd�vv1.2

シェアウェアですが、ローカルにSMTPサーバを立てるイメージです。

または、IISでSMTPサーバを自前で立てる。

いずれも敷居が高いかな???

id:iwa317

ありがとうございます。なかなか難しそうですね。

2005/05/10 21:35:51
id:Kityo No.3

キチョー id:Kityo回答回数159ベストアンサー獲得回数122005/05/11 00:30:44

ポイント15pt

 takntさんは「一度受信処理をしてから」とおっしゃっていますが、「LIST」「STAT」辺りで充分ですので。

 以前にそのまま使えとのご指定でクライアントから頂いたexcelファイルがその種のメール送信ボタンを備えていたことがありまして、「STAT」コマンドを送信するスクリプトを書いてexcelを開く前にそのスクリプトを走らせるようにしていたことがあります。

id:iwa317

ありがとうございます。できれば、エクセルのシートにあるコマンドボタン(送信)のなかに必要なコマンドを書き込むことができたらと思っています。

2005/05/11 11:23:41
id:NAO8 No.4

NAO8回答回数36ベストアンサー獲得回数12005/05/11 01:55:56

ポイント15pt

WINDOWS用のSENDMAIL

sendまね~る (0.98)というのもあります。

メールサーバーを構築するならXMAILというサーバーもあります。

id:iwa317

ありがとうございます。

2005/05/20 09:48:59
id:Kityo No.5

キチョー id:Kityo回答回数159ベストアンサー獲得回数122005/05/14 05:10:32

ポイント15pt

http://www.peertopeer-jp.com/jtv/download/VBAsample_page_1.htm

BASP21 DLLとAccess VBAによる メールを利用したファイルの送受信サンプル

 ずいぶん長いこと続きの答えを待っていらっしゃる様子なので、再度サーチ結果を出力します。

 ここで紹介されているBASP21を使ってみてははどうでしょう?

http://www.hi-ho.ne.jp/babaq/index.html

Baba Centerfolds

 BASP21の本家のページはこちらと思います。

 私自身も使ったことがあり、使い勝手は悪くなかったです。(但し私の評価は、VBScriptからの呼び出しをした経験です。VBAからも使えることになっており、そう不便はないだろうと予想します)

 FAQページも充実している様子です。


 全部、1番上のURLから順当に手繰ることが出来ます。-:)

id:typista No.6

typista回答回数359ベストアンサー獲得回数72005/05/24 14:56:14

ポイント15pt

http://www.hi-ho.ne.jp/babaq/vbtips.html

�u���������� �a�������� �s������

「メールを受信したい」を参照してください。

具体的には、SendMailメソッドの直前で、以下のようにすればクリアできると思います。

Dim szServer As String, szUser As String, szPass As String

Dim szCommand As String, szDir As String

Dim ar As Variant, v As Variant


szServer = ”your pop3 server” ’SMTPサーバ名と同じでよい。

’タブで区切ってポート番号を指定できます。

szUser = ”your-name” ’メールアカウント名

szPass = ”pass” ’パスワード

szCommand = ”SAVE 1-3” ’コマンド メールの1件目から3件目までを受信

’---------------------------------------------------------------------------

’受信せずにPOPbeforeSMTPをクリアするだけなら、こちらでも良いのかな?

’szCommand = ”STAT”

’---------------------------------------------------------------------------


szDir = ”c:¥maildata” ’受信したメールを保存するディレクトリ


ar = RcvMail(szServer, szUser, szPass, szCommand, szDir)

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません