[Resolvido]Enviar email de forma automática pelo Outlook

Caros amigos,

Atualmente utilizo o seguinte modulo para enviar emails.

Sub EnviaEmail()

Dim appOutlook As Object
Dim olMail As Object

'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
'On Error Resume Next
.To = "xxxxx.xxxx@xxx.xxx"
.CC = "xxxxx.xxxxx@xxx.xxx"
.Subject = "Teste"
.Attachments.Add ("Y:xxxxxxxxx.xls")
'.Attachments.Add = ("C:xxxxxx.xls")
.Body = "Bom dia," + vbNewLine + "Segue em anexo relatório de Controle." + vbNewLine + vbNewLine + "Atenciosamente," + vbNewLine + "Fulano" + vbNewLine + "Área Comercial"
.Display '.Send
End With
End Sub

Essa rotina funciona perfeitamente. O que preciso é automatizar essa rotina para que nao seja necessário eu ter que clicar no botão enviar para que o email saia da caixa, preciso que toda essa rotina seja independente do usuário.

Por gentileza, alguem pode me propor um solução?

Se você substituir o .Display pelo .Send, envia sem avisar.

JPaulo,

Obrigado!

Boa tarde,

Após ter adaptado o código aqui postado, ele funcionou na perfeição para o que eu queria.
Só tenho uma pequena duvida?
É possivel inserir vários nomes para quem queremos enviar "Para:"ou "Cc:" ????
Os nomes e respetivos emails estão numa tabela e no meu forme estou a escolher atravez de uma combo box.

Agradeço....

Boa tarde,

resolvi o meu problema, não sei se é a melhor maneira mas funciona.

Private Sub Combo205_AfterUpdate()
If Text209.Value <> "" Then
Text209.Value = Text209 & Combo205 & "; "
Else
Text209.Value = Combo205 & "; "
End If
Command236.Enabled = True
End Sub

Agradeço a quem tentou....

Robert_1977, onde coloco a linha de comando?
Como funciona esse código ai?
O meu precisaria que enviasse de acordo com o status de cada registro.

Alguma ideia?

Caríssimos, vi aqui nas páginas anteriores que um usuário levantou esse questionamento mas não consegui ver a resposta, pois estou com o mesmo problema:

Tenho um código pra enviar email pelo outlook, mas o email nao é enviado, ficando na caixa de saída, me obrigando a depois do procedimento ter que abrir o outlook manualmente para que o email seja realmente enviado.

Como faço para não precisar abrir o outlook manualmente?

Obrigado!!!


Private Sub Comando3_Click()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application") 'Objeto para Outlook
Set OutMail = OutApp.CreateItem(0) 'Objeto para email dentro do Outlook

With OutMail
.To = "email"
.CC = "email"
.BCC = ""
.Subject = "assunto"
.Body = "Mensagem"
.Display ' para enviar o email diretamente defina o código .Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Você fez este procedimento ?

Código:

.Display ' para enviar o email diretamente substitua o Display por .Send

Obrigado por retornar !!!

sim fiz tambem, mas a unica coisa que muda é que o email abre e fecha sozinho, mas o problema de ficar na caixa de saida ainda permanece, necessitando que eu abra o outlook manualmente para que seja realmente enviado.

Aproveite;

obrigado JPAULO

eu peguei o seu codigo e incluí no meu, porém permanece igual. Um adendo: quando eu abro manualmente o outlook da pra ver que tem 1 email na caixa de saida e logo em seguida aparece a mensagem "o servidor oa qual voce esta conectado esta usando um certificado de segurança que nao pode ser confirmado. deseja continuar usando este servidor? e SO DEPOIS que eu clico em sim é que o email sai da caixa de saida e é efetivamente enviado.

essa mensagem que aparece influencia no codigo nao dar certo?

Entao fiz um teste aqui no outlook e consegui resolver a questao da mensagem do certificado. ela NAO esta mais aparecendo, POREM o problema no código vba permanece. Eu sou obrigado a abrir manualmente o outlook para que o email saia da caixa de saida e realmente seja enviado. Eu abro o outlook e vejo 1 email na caixa de saida e em questoes de segundo o email some (sendo neste momento e so nesse momento enviado realmente). o código esta escravo do abertura manual do outlook.

Centenas de testes que fiz aqui e com o outlook fechado envia sempre, atrvés do banco de exemplo que enviei acima.

1º Faça o teste no banco que lhe enviei, sem alterar nada, apenas deve alterar o destinatário.
2º Diga-nos a versão do seu Office.

Bom dia! Obrigado pelo retorno!

Ok!

Assim que o programa abre aparece a msg do anexo, versando sobre projeto ou a biblioteca.

Office 2007.

Isso acontece por causa das referencias VBA.

Entre no modulo VBA, vá a Ferramentas, Referencias e retire o visto da referencia ausente e marque a mesma referencia para a sua versão.