Preciso de um código que envie e-amil com anexo, alguém possui. Baixei alguns do próprio Vb Web, mas não conegui fazer funcionar. Alguém pode me ajudar ...

Publique o código que você baixou e a gente pode te ajudar melhor.

 

[]´s

Vinícius

Option Explicit
Dim AnexoPath As String
Dim AnexoInd As Integer
Dim Indice As Integer
Dim Start As Integer
Dim Inicio As Integer
Private Sub Command1_Click()
    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.Compose
    MAPIMessages1.RecipAddress = Endereço.Text
    MAPIMessages1.MsgSubject = Assunto.Text
    MAPIMessages1.MsgNoteText = Mensagem.Text
    For Indice = 0 To AnexoInd
        For Start = Inicio To Len(Anexo)
            If Mid(Anexo.Text, Start, 1) = ";" Or Start = Len(Anexo) - 1 Then
                AnexoPath = Mid(Anexo.Text, Inicio, Start - 1)
                Inicio = Start + 1
                Exit For
            End If
        Next
        MAPIMessages1.AttachmentIndex = Indice
        MAPIMessages1.AttachmentPathName = AnexoPath
    Next
    MAPIMessages1.Send   ==== O erro acontece aqui."Unspedified failure has occurred"
    MAPISession1.SignOff
End Sub
Private Sub Command2_Click()
    CommonDialog1.ShowOpen
    AnexoInd = AnexoInd + 1
    If Anexo.Text = Empty Then
        Anexo.Text = CommonDialog1.FileName
    Else
        Anexo.Text = Anexo.Text & ";" & CommonDialog1.FileName
    End If
End Sub
Private Sub Form_Load()
    AnexoInd = -1
    Inicio = 1
End Sub