C�mo enviar caracteres japoneses con CDO para Windows 2000

Id. de art�culo: 284143 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

Expandir todo | Contraer todo

Resumen

En el ejemplo siguiente se muestra el c�digo que es necesario para enviar japon�s doble byte juego de caracteres, utilizar Collaboration Data Objects (CDO) para Windows 2000.

Nota : debe tener la configuraci�n regional para japon�s haya configurado en su equipo.

M�s informaci�n

Crear un nuevo proyecto en Visual Basic. Configure el formulario como sigue:
Objeto-------------------nombre
*************************
Formulario------------------FrmTest
Bot�n------cmdSend de comando
Bot�n------cmdQuit de comando
TextBox---------------txtPort (valor: 25)
TextBox---------------txtServer
TextBox---------------txtTo
TextBox---------------txtFrom
TextBox---------------txtSubject
TextBox (Forms 2.0)----txtBody
Agregue una referencia a la biblioteca de objeto CDO for Windows 2000.

Agregue el c�digo siguiente al formulario:

Private Sub cmdQuit_Click()
Unload Me
End Sub

Private Sub cmdSend_Click()
On Error GoTo errhand


Dim objConfig As CDO.Configuration
Dim objMessage As CDO.Message
    
    Set objConfig = New CDO.Configuration

    ' Set the configuration fields for this message.
    With objConfig.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort 
        .Item(cdoSMTPServer) = txtServer ' Set the SMTP server
        .Item(cdoSMTPConnectionTimeout) = 30
        .Item(cdoSMTPServerPort) = txtPort ' Set the port to communicate on
        .Item(cdoSendUserName) = "user1" 
        .Item(cdoSendPassword) = "user1"
        .Update
    End With

    ' Create the new message object.
    Set objMessage = New CDO.Message
    
    
    ' Set the message properties and send the message.
    With objMessage
        Set .Configuration = objConfig
        .MimeFormatted = True
        .Fields.Update
        .To = "<" & txtTo & ">"
        .From = "<" & txtFrom & ">"
        .Subject = txtSubject
        .TextBody = txtBody<BR/>
       
        ' Set the Character set for the Body Part.
        .TextBodyPart.Charset = cdoShift_JIS
        
        ' Get the plain text version of the message & decoded body part.
        Set IBodyPart = objMessage.TextBodyPart
        IBodyPart.GetDecodedContentStream
        .Send
    End With

Set objMessage = Nothing
Set mobjConfig = Nothing

Exit Sub

errhand:

MsgBox "Error: " & Err.Number & " (" & Err.Description & ") occurred"

Set objMessage = Nothing
Set objConfig = Nothing

End Sub

Ejecute el proyecto.
Escriba el nombre del servidor SMTP en el campo txtServer y rellene los campos txtTo txtFrom y txtSubject .
Pegue el texto en japon�s en el campo txtBody o escr�balo con el Editor de m�todo de entrada (IME) de Windows.
Haga clic en cmdSend .

Propiedades

Id. de art�culo: 284143 - �ltima revisi�n: jueves, 22 de febrero de 2007 - Versi�n: 3.4

La informaci�n de este art�culo se refiere a:

Microsoft Windows 2000 Server SP1
Microsoft Windows 2000 Advanced Server SP1
Microsoft Windows 2000 Professional SP1
Microsoft Visual Basic 6.0 Professional Edition
Microsoft Exchange 2000 Server Standard Edition

kbmt kbhowto KB284143 KbMtes

Traducci�n autom�tica

IMPORTANTE: Este art�culo ha sido traducido por un software de traducci�n autom�tica de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece art�culos traducidos por un traductor humano y art�culos traducidos autom�ticamente para que tenga acceso en su propio idioma a todos los art�culos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los art�culos traducidos autom�ticamente pueden contener errores en el vocabulario, la sintaxis o la gram�tica, como los que un extranjero podr�a cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisi�n, error o da�o ocasionado por una mala traducci�n del contenido o como consecuencia de su utilizaci�n por nuestros clientes. Microsoft suele actualizar el software de traducci�n frecuentemente.

Haga clic aqu� para ver el art�culo original (en ingl�s): 284143

(http://support.microsoft.com/kb/284143/en-us/ )