W-ZERO3[es]でメールを送るプログラム(標準メーラー利用編） UMA とかのあと/ウェブリブログ

W-ZERO3[es]でメールを送るプログラム(標準メーラー利用編）

<< 作成日時： 2006/09/01 22:57 >>

初めてコメントをもらった
ちょっとうれしい

"撮速写メール"って名前はやっぱりマズイかなぁと思うので、別の名前を考えることにした。
初代京ポンのときは"速写メール"って名前だったと思うが、いつのまにか"撮速メール"に名前が変わっていたのは"写メール"に引っかかるからかも？

"撮速"って付けるてもマズイと思うので、"写速メール"シャッソクメールはどうだろう？でも SSSMaiｌとSの数が合わないか．．．
パッチもんクサイすぎか

コメントで実行プログラムのフォルダの取得方法を教えてもらった
おかげで、ひとつ宿題が解決した

だが、致命的な問題が発覚
送信したメールをZERO3メールで受けると本文が文字化けしている！
Gmailに送って確認したら文字化けしてなかったのに．．．
このままではZERO3同士でメールを送るときは本文を一生懸命入力しても無駄になる

前回まではSocektを使ってメールを自力で送信するプログラムのメモを書いたが
PocketOutlookを使ってメールを送信するプログラムを以下にメモしておく
（テスト用に書いたコード）

<pre>



    Private Sub email(ByVal filename As String)

        Dim account As Microsoft.WindowsMobile.PocketOutlook.EmailAccount

        Dim session As New Microsoft.WindowsMobile.PocketOutlook.OutlookSession



        TextBox1.Text = ""

        For Each account In session.EmailAccounts

            TextBox1.Text += account.Name + ControlChars.CrLf

            If account.Transport = "POP3" Then

                TextBox1.Text += "Found POP3 Account" + ControlChars.CrLf

                Dim email As New Microsoft.WindowsMobile.PocketOutlook.EmailMessage



                email.To.Add(New Microsoft.WindowsMobile.PocketOutlook.Recipient("xxx@xxx.co.jp"))



                email.Subject = "MAPI Test"

                email.BodyText = "MAPI Test Body"

                Dim attach As New Microsoft.WindowsMobile.PocketOutlook.Attachment(filename)

                email.Attachments.Add(attach)

                account.Send(email)



                Microsoft.WindowsMobile.PocketOutlook.MessagingApplication.Synchronize(account)



                Exit For



            End If





        Next





    End Sub

</pre>

なぜか、空白文字が表示されなくて非常に見にくい
<pre><code>
ソースコード
</code></pre>
ではダメなのか

それはおいといて、プログラムの説明
まずEmailAccountを取得して"POP3"を使用するアカウントを見つける
pdxメールアカウントはPOP3を使用するので、それ以外のアカウントは無視する
アカウントが見つかったらEmailMessageを作って、宛先や件名、本文、添付ファイルをつけて送信する

<pre>



account.Send(email)

</pre>

では送信トレイにメッセージが入るだけで、実際の送信は行われなかった。このままでは手動で送受信メニュー操作をしないとメールの送信は実行されない

<pre>



Microsoft.WindowsMobile.PocketOutlook.MessagingApplication.Synchronize(account)

</pre>

送信処理を実行するコード。コレに気がついた自分がエライと思った
たいしたことではないか

文字化けをちょっと調べてみた
手入力でOutlookからメールを送った場合のメールのメッセージを読むと本文は

<pre>



Content-Transfer-Encoding: 7bit

Content-Type: text/plain; charset="iso-2022-jp"

</pre>

となっていた
SSSMailから送ったメールは

<pre>



Content-Transfer-Encoding: base64

Content-Type: text/plain; charset="utf-8"

</pre>

だった
utf-8形式の文字列データをbase64でエンコードしてあるらしい
WZEROメールがutf-8に対応してないって事なのかな？
iso-2022-jpで送ればよさそうだ
でもどうやって？

<< 前記事（2006/09/01）

トップへ

後記事（2006/09/03）>>

月別リンク

トラックバック（1件）

タイトル（本文）	ブログ名／日時
SSSMail（02?） / File Explorer Extension（β）［ｅｓ］からモブログテスト。「撮速写メール」というネーミング、なかなかイカし ...続きを見る	umblog 2006/09/04 16:31

コメント（0件）

内容	ニックネーム／日時

<< 前記事（2006/09/01）

トップへ

後記事（2006/09/03）>>

UMA とかのあと