| 投稿日 | ： 2006/10/17(Tue) 17:20 |
| 投稿者 | ： ㌧かちの父 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： MAPISession、MAPIMessagesを使用してのメール送信 |
いつも楽しく拝見してます。
今、大変困っております。
MAPISession MAPIMessagesを使用してメールを送信するプログラムを作ってるのですが、
通常使うメールソフトにMicrosftOutLookを使用するとSendの段階でエラー(予期せぬエラーと出ます)となり、
送れません。
どうすれば送れるようになるのかわかる方お教えください。
※通常使うメールソフトにOutLook Expressを選ぶと送れます。
下記プログラムです。
-----------------------------------------------------------
Private Sub Command1_Click()
Dim frgReject As Integer
frgReject = 0
s.SignOn
With m
.SessionID = s.SessionID
.Compose
.RecipAddress = "xxxx@xxxxxxxx.xx"
'txtKenの内容を件名に設定
.MsgSubject = "テスト"
.MsgNoteText = "テスト"
.Send True
'.Send IIf(frgReject = 0, False, True)
End With
s.SignOff
End Sub
-----------------------------------------------------------