Winsock - Adjuntar archivos en email

[forvan]

Queria realizar una consulta... a ver si alguien tiene idea de esto..

Tengo una aplicacion que envia emails con un componente Winsock, pero estoy teniendo problemas para attachar un archivo (no adjunta el file, sino que pone caracteres "extraños" en el cuerpo del mail)

El codigo para adjuntar los archivos que tengo es:

For i = 0 To lstAttachments.ListCount - 1
m_strEncodedFiles = m_strEncodedFiles & _
UUEncodeFile(lstAttachments.List(i)) & vbCrLf
Next i

strMessage = txtMessage & vbCrLf & vbCrLf & m_strEncodedFiles

Winsock1.SendData strMessage & vbCrLf

¿Alguien conoce otra forma de hacerlo con Winsock o porqué no funciona?

Muchas gracias.

[Fabuazul]

Porque no cambias tu caja de texto por un Rich text.

[forvan]

¿te refieres al txtMessage?

[Fabuazul]

richtextbox te ofrece la manera de archivar dentro de su caja de texto algun documento o lo que sea.

[zabait]

Porque no utilizas Outlook??? No sería más sencillo??

Código:

Sub Send_Mails(PARA As String, TITULO As String, CUERPO As String, Optional ATTACH As Variant, Optional NOMBREATT As Variant, Optional CONC As String)

    Dim appOutLook As Outlook.Application
    Dim MailOutLook As Outlook.MailItem
    
    'Enables automatic "YES" clicks for Outlook
    Turn_Auto_Yes_On
    'set variables for Outlook and a message
    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(olMailItem)
    
    'Añadir las clausulas de privacidad del mail al cuerpo del mensaje
    
    
        With MailOutLook
            .To = PARA
            .SUBJECT = TITULO
            '.BodyFormat = olFormatRichText
            .Body = CUERPO
            If Not IsMissing(CONC) And CONC <> "" Then .CC = CONC
            If Not IsMissing(ATTACH) Then
                If ATTACH <> "" Then
                    .Attachments.Add ATTACH, olByValue, 1, NOMBREATT
                End If
            End If
            If MsgBox("¿Desea enviar el siguiente e-mail?" & vbCrLf & "ASUNTO: " & TITULO & vbCrLf & "DESTINATARIO: " & PARA & vbCrLf & "CC: " & CONC, vbYesNo + vbQuestion) = vbYes Then
                .Send
            End If
        End With
    
    'Turns off the Auto_Yes program
    Turn_Off_Auto_Yes
    Set MailOutLook = Nothing
    Set appOutLook = Nothing
    
End Sub

[GeoAvila]

y bueno yo digo... porque no miras en las faq's el ejemplo que puse podes ajuntar archivos.. y está el código completo..

nos vemos..