MessageオブジェクトのEncodeメソッドの使い方を教えて下さい。
文書番号 : 9080
文書種別 : 使用方法
最終更新日 : 2000/06/30
対象製品
iNetMail 1.0J
詳細
次のサンプルコードは、Encodeメソッドの
使い方を示します。
Dim s As String
Dim msg As New Message
'' エンコードを行いバッファを初期化します。
msg.Encode vbNullString
'' データを格納するバッファを確保します。
s = space(1000)
While msg.Encode(s) <> 0
Debug.Print s
'' バッファが最初に取得した時のバッファより
'' 小さくならないようにします。
s = space(1000)
Wend
使い方を示します。
Dim s As String
Dim msg As New Message
'' エンコードを行いバッファを初期化します。
msg.Encode vbNullString
'' データを格納するバッファを確保します。
s = space(1000)
While msg.Encode(s) <> 0
Debug.Print s
'' バッファが最初に取得した時のバッファより
'' 小さくならないようにします。
s = space(1000)
Wend
キーワード
HowTo