使用メールソフトの起動方法 (ID:122537)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200407/04070101.txt

こちらの記事を見てメールソフトの起動方法はわかったのですがどうしてもわからない事があり
書き込みさせていただきました。

起動時に文章を入れたいので
Sub Command1_Click()
    Dim body As String
    Dim n As Integer
    Dim IE As Object
    For n = 0 To 200
    body = body & "あいうおえ" & "%0A"
    Next n
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = False
    IE.navigate ("mailto:test@test.jp?subject=件名&body=" & body)
End Sub

という処理をしたところうまく作成できました。
しかし、もう少し長い文章を入れたかったので

Sub Command1_Click()
    Dim body As String
    Dim n As Integer
    Dim IE As Object
    For n = 0 To 400
    body = body & "あいうおえ" & "%0A"
    Next n
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = False
    IE.navigate ("mailto:test@test.jp?subject=件名&body=" & body)
End Sub

としたところ（For n = 0 To 200をFor n = 0 To 400に変更）
エラーで作成できなくなりました。

どなたか原因がおわかりでしたら教えていただけないでしょうか。
よろしくお願いします。

開発環境はWindows2000SP4でVB6.0SP6です。ちなみにアウトルックは6.0です。

マイクロソフトにはVB6の質問を受け付けてくれるようなところはないのでしょうかね？

←解決時は質問者本人がここをチェックしてください。

戻る