[Resolvido]Envio de e-mail direto sem outlook

Bom dia
Estou a utilizar para enviar os meus emails mas quando tento inserir 2 anexos não envia.
Quando insiro só um anexo envia sem problemas
Function EnviarEmail()
On Error GoTo erromail
Dim Mens As CDO.Message
Dim Config As CDO.Configuration
Set Config = New CDO.Configuration
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.suaconta.com.br" 'seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' porta usada pelo seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "o nome do usuario para logon no servidor" 'user do servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha do servidor" 'coloque a senha do seu email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "Nome de quem envia" 'quem envia
If Not IsNull(Me.txtDeMail) Then
.Sender = Me.txtDeMail 'email de quem envia.
End If
If Not IsNull(Me.txtCOculta) Then
.BCC = Me.txtCOculta
End If
.Subject = Me.txtAssunto 'caixa texto assunto
.TextBody = Me.txtMensagem 'Caixa texto com o texto"
If Not IsNull(Me.txtPara) Then
.To = Me.txtPara 'caixa texto para quem vai o email"
End If
If Not IsNull(Me.txtAnexo) Then
.AddAttachment (Me.txtAnexo)
End If
.Send ' envia
End With
MsgBox "Menssagem enviada com sucesso"
Set Mens = Nothing
Set Config = Nothing
Exit Function
erromail:
MsgBox Err.Number & " " & Err.Description
Set Mens = Nothing
Set Config = Nothing
Exit Function
End Function

Olá Assis. Para envio de dois anexos, considere colocar mais uma caixa de texto:

...
.AddAttachment (Me.txtAnexo1)
.AddAttachment (Me.txtAnexo2)
...

ou usar uma listbox, que seria o mais adequado para envio de vários emails:

Dim Linhas As Long
Do
.AddAttachment Me!lstAnexos.Column(0, Linhas) & Me!lstAnexos.Column(1, Linhas)
Linhas = Linhas + 1
Loop While Linhas <= Me.lstAnexos.ListCount

No caso acima, eu uso o FilePicker para coletar e preencher a list box com os arquivos e tenho uma função que separa o nome do arquivo do caminho, de forma a exibir na listbox apenas o nome do arquivo com a extensão. Por isso tenho as colunas 0 e 1. Caso prefira, pode ter apenas a coluna 0.

Assis, esse tópico ficou resolvido?