Enviar Email

Option Compare Database
'Global strTo As String
'Global strAss As String
'Global sMDestino
'Global sMEmail
'Global strAssTel As String
Global eMailRemetente As String ' informar o e-mail do remetente, a finalidade desta informação é apenas para constar como remetente na mensagem de e-mail.
Global nomeRemetente As String ' informar o nome do remente que irá constar no e-mail.
Global eMailDestinatario As String ' informar os e-mail dos destinatários separados por ( ponto-e-vírgula ou (,) vírgula.
Global eMailBcc As String ' informar o e-mail de BCC - blind carbon copy, é a lista de e-mail para qual serão enviados uma cópia oculta da mensagem.
O uso deste recurso é interessante para gerar uma cópia de seguranças das NF-e emitidas sem qualquer custo. Basta criar uma conta em algum serviço de e-mail que permite a manutenção das mensagens por tempo indeterminado como é o caso do gmail. se os e-mail forem "baixados" em outro micro, teremos 2 cópias de segurança de todas as mensagens enviadas.
Global assunto As String ' informar o assunto do e-mail.
Global mensagem As String ' informar a mensagem do e-mail.
Global arquivos As String ' informar a lista de arquivos que serão enviados como anexo, a lista deverá ter o caminho completo do arquivo separados por ( ponto-e-vírgula ou (,) vírgula.
Global smtpCliente As String ' informar o smtpCliente que será utilizado para envio do e-mail, ex.: smtp.flexdocs.com.br, o smtpCliente do hotmail é smtp.live.com
Global smtpPorta As String ' informar a porta utiliza pelo smtp, ex.:25, o gmail utiliza a porta 587
Global smtpSSL As String ' informar o uso de SSL: 0-não e 1-sim, o gmail e o hotmail utilizam o SSL
Global smtpUsuario As String ' informar o nome do usuário da conta de e-mail
Global smtpSenha As String ' informar a senha do conta de e-mail
Global HTML As String ' informar se a mensagem é HTML, valores válidos: "0" (não) ou "1" (sim)
Global confirmacao As String ' informar se deseja solicitar confirmação de leitura, valores válidos: "0" (não) ou "1" (sim)
Global cResultado As Long ' retorna o resultado do envio
Global File1 As String
Public Function enviaDANFE(nNFe As String, sMailDestiono As String, sMensagem As String, sAviso As String)

If sErr = -1 Then 'Habilita tratamento de erro
On Error GoTo enviaDANFE_Erro
End If


File1 = DLookup("[Diretorio]", "NFe_Diretorios", "[TipoArquivo]='xmlAutorizado'") & Format$(nNFe, "000000000") & "-procNFe.xml" & ";" & _
DLookup("[Diretorio]", "NFe_Diretorios", "[TipoArquivo]='pdfDANFe'") & Format$(nNFe, "000000000") & ".pdf"

'Dados do destinatário
eMailRemetente = DLookup("[smtpMail]", "NFe_Parametros")
nomeRemetente = DLookup("[Nome_Fantasia]", "NFe_Parametros")

'Configuração da conta de e-mail (SMPT)
smtpCliente = DLookup("[smtp]", "NFe_Parametros")
smtpPorta = DLookup("[smtpPorta]", "NFe_Parametros")
smtpSSL = DLookup("[smtpSSL]", "NFe_Parametros")
smtpUsuario = DLookup("[smtpUsuario]", "NFe_Parametros")
smtpSenha = DLookup("[smtpSenha]", "NFe_Parametros")
HTML = DLookup("[envHTML]", "NFe_Parametros")
confirmacao = DLookup("[envConf]", "NFe_Parametros")

eMailDestinatario = sMailDestiono
eMailBcc = DLookup("[smtpMail]", "NFe_Parametros")
assunto = "Encaminhamento de DANFE e XML"
mensagem = sMensagem
arquivos = File1

msgResultado = ""
cResultado = 0

Dim objNFeUtil As Object
Set objNFeUtil = CreateObject("NFe_Util_2G.util")

cResultado = objNFeUtil.EnvEmail(eMailRemetente, nomeRemetente, eMailDestinatario, eMailBcc, assunto, mensagem, arquivos, smtpCliente, smtpPorta, smtpSSL, smtpUsuario, smtpSenha, HTML, confirmacao, msgResultado)

If sAviso = 1 Then

MsgBox "O retorno da DLL é: " + str(cResultado) + msgResultado, vbInformation, "Resultado"

End If

Set objCTeUtil = Nothing

On Error GoTo 0
Exit Function

enviaDANFE_Erro:


MsgBox "Ocorreu um erro na aplicação." & vbCr & "Relate os dados abaixo ao suporte." & vbCr & _
"Erro Nº: " & err.Number & vbCr & _
"Descrição do erro: " & err.Description & vbCr & _
"Módulo: " & "NFe_Email" & vbCr & _
"Procedimento: " & "enviaDANFE", vbExclamation, NomeAplicativo

End Function


tenho esse codigo alguem pode me ajudar a enviar email com ele tirando essa dll

alguem entendeu

Amigo, veja esse fatástico exemplo do mestre criquio:

http://maximoaccess.forumeiros.com/t3878-envio-de-email-por-cdo-com-muito-mais-recursos