mapiコントロールを使用して作成はしたのですが・・・

akame 2006-12-07 01:51:25 No: 97368

vb6.0 mapiコントロールを使用して作成はしたのですが・・・
outlook express からは、送信しますが、
同様のプログラムでoutlook2003 から送信すると、
うまく送信されないようです。なぜなのでしょうか？
microsoft に質問してもmapi準拠なので・・・としか回答がありません。
どなたか、教えてください。

ちなみに、outlook express を通して送信したものは、outlook2003 でも正常に受信します。

ヤマ＠文系 2006-12-07 12:15:13 No: 97369

どこかで見かけたような質問ですが・・・

過去ログにあるようなことでしょうか？
'http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200502/05020033.txt

それでもうまくいかない場合ですが、Outlook自体にも
マクロ(VBA)があったはずなので
それを外部プログラムから呼び出すという方法では
だめでしょうか？

うまくいかないということなのですが、
うまくいかないコードなどを出されると
回答がつけやすいとおもいます。

akame 2006-12-07 18:00:55 No: 97370

ヤマ＠文系さんありがとうございます。
過去ログみました。こんなエラーどころか、エラーは何も発生しません。

コードはたったこれだけです。
宜しくお願いします。

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = "aaa"
b = "bbb"
c = "ccc"

On Error GoTo error_001

MAPISession1.Password = "pw"
MAPISession1.UserName = "uname"
MAPISession1.NewSession = True
MAPISession1.LogonUI = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.MsgIndex = -1
MAPIMessages1.RecipAddress = "mailadress"
MAPIMessages1.MsgSubject = "test"
MAPIMessages1.MsgNoteText = a + b + c
MAPIMessages1.Send False
MAPISession1.SignOff
Exit Sub

akame 2006-12-07 23:31:13 No: 97371

わかりました。
詳細は下記です。
http://support.microsoft.com/kb/252708/ja