| 投稿日 | ： 2006/10/19(Thu) 10:58 |
| 投稿者 | ： ㌧かちの父 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： MAPISession MAPIMessagesを使用してメールの送信の件２ |
先日質問した者です。
MAPISession MAPIMessagesを使用してメールを送信するプログラムを作ってるのですが、
通常使うメールソフトにMicrosftOutLookを使用すると正しく動作しません。
先日は.Sendでエラーになる件で質問しましたが、
.ResolveNameを追加することにより、.Send Trueの場合は送ることが出来るようになりました。
しかし、.Send Falseにした場合送信トレイに乗っかるだけで送信されません。
自動で送信出来るようにしたいのですが、どうすればよいのでしょうか？
※通常使うメールソフトにOutLook Expressを選ぶと送れます。
----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim frgReject As Integer
frgReject = 0
s.SignOn
With m
.SessionID = s.SessionID
.Compose
'txtKenの内容を件名に設定
.MsgSubject = "テスト"
.MsgNoteText = "あいうえお"
.RecipAddress = "xxx@xxxxxx.xx"
.ResolveName
.Send False
End With
s.SignOff
End Sub