[Resolvido]Enviar email via CDO

Boa tarde a todos. Estou com a seguinte questão com o código abaixo para envio de email via CDO:

Quando faço o envio com arquivo em anexo funciona perfeitamente, no entanto, quando faço o envio sem nenhum arquivo anexo, aparece a seguinte mensagem de erro: -2146697203 unknown error; e não envia a mensagem. Alguém pode ajudar ?

'BOTÃO DE COMANDO - Evento 'Ao Clicar"
Private Sub ViaServidor_Click()
Call EnviarEmail
End Sub

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.mp.pe.gov.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") = "ouvidor@mp.pe.gov.br" 'User do servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mporelha" '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 = "OUVIDOR" 'quem envia

If Not IsNull(Me.Remetente) Then
.Sender = Me.Remetente 'email de quem envia = txtDeMail
End If

If Not IsNull(Me.txtCOculta) Then
.BCC = Me.txtCOculta
End If

.Subject = Me.Assunto 'caixa texto assunto = txtAssunto
.TextBody = Me.Mensagem 'Caixa texto com o texto = txtMensagem"

If Not IsNull(Me.Destinatarios) Then
.To = Me.Destinatarios 'caixa texto para quem vai o email = txtPara"
End If

If Not IsNull(Me.RotaArquivo) Then
.AddAttachment (Me.RotaArquivo) 'caixa texto para anexação
End If

.Send ' Envia

End With

MsgBox "Mensagem 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

Tente desabilitar as linhas do If para ver se funfa:

' If Not IsNull(Me.RotaArquivo) Then
.AddAttachment (Me.RotaArquivo) 'caixa texto para anexação
' End If

Sim, Criquio, funcionou quando exclui as linhas sugeridas, mas quando eu quiser ter as 2 opções enviar com e sem anexo ?
PS: Desculpe observei que são apenas as linhas do IF para serem excluídas, vou testar novamente...

Caro Criquio:

Sem anexo funciona quando retiro as 3 linhas abaixo;
Com Anexo só funciona com essas 3 linhas abaixo.

Como faço para ter as 2 opções ?

' If Not IsNull(Me.RotaArquivo) Then
'.AddAttachment (Me.RotaArquivo) 'caixa texto para anexação
' End If

Tente acrescentar um Else:

If Not IsNull(Me.RotaArquivo) Then
.AddAttachment (Me.RotaArquivo) 'caixa texto para anexação
Else
End If

Mesmo com os comandos abaixo, só funciona com anexo, sem anexo dar o mesmo erro:

If Not IsNull(Me.RotaArquivo) Then
.AddAttachment (Me.RotaArquivo) 'caixa texto para anexação
Else
End If

Estranho, pois eu uso dessa forma com as três linhas e não me traz problemas. Deve ter algo mais interferindo no resultado.

Então por enquanto vou deixar em aberto e continuar tentando, caso não consiga resolver mesmo assim coloco como Resolvido.
Criquio, obrigado por toda ajuda, valeu, muita paz!

Criquio, consegui resolver com outro código semelhante ao usado e deu certo.