Cómo enviar caracteres japoneses con CDO para Windows 2000

Seleccione idioma Seleccione idioma
Id. de artículo: 284143 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
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

  1. 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

  2. Agregue una referencia a la biblioteca de objeto CDO for Windows 2000.
  3. 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
    
    					
    .
  4. Ejecute el proyecto.
  5. Escriba el nombre del servidor SMTP en el campo txtServer y rellene los campos txtTo txtFrom y txtSubject .
  6. Pegue el texto en japonés en el campo txtBody o escríbalo con el Editor de método de entrada (IME) de Windows.
  7. Haga clic en cmdSend .

Propiedades

Id. de artículo: 284143 - Última revisión: miércoles, 26 de febrero de 2014 - 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
Palabras clave: 
kbnosurvey kbarchive 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

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com