Chamar janela de Novo E-Mail dou Outlook (pelo VBA)

[danilobtos]

Olá galera.!

Qual é o comando VBA que chama uma nova janela de e-mail.? e anexa a planilha ou documento atual neste e-mail (se possivel).

Obs.: Não precisa preencher Destinatário, Assunto, Corpo do E-mail, nada, em branco mesmo.

Vou criar uma macro e colocar um botão na planilha que, quando clicar nele, ele chama uma janela de Novo Item (Novo E-Mail) no Microsog Outlook.

At;
Danilo.

[thiagocs2]

Danilo,

O comando é ActiveWorkbook.SendMail recipients:="Jean Selva"

Caso não queira especificar os destinatários pode colocar o comando Wait no lugar do destinatário (ActiveWorkbook.SendMail recipients:= Wait). Desta forma ele vai abrir a mensagem do Outlook com o arquivo anexo e vai aguardar que você digite o endereço dos destinatários.

Qualquer dúvida posta aí.

Abraço!

[danilobtos]

Perfeito.!

tem como eu inserir no "Assunto" o valor de uma determinada célula, e no "Destinatário" o valor de uma outra célula.
já tentei inserir um "Range("B2") maz nao deu muito certo.

Tipo, na A1 tem o codigo do usuario e no B1 tem o e-mail deste usuário.
Quando o filtro for o codigo/conteúdo do A1, quero que no assunto do e-mail apareça o que estiver escrito no A1 e no destinatário o e-mail que vai estar no B1.

captou a mensagem.!???

[thiagocs2]

Vc pode jogar o conteúdo da célula numa variável string.

Exemplo:

Código: Selecionar todos

Dim Assunto, Dest as String

Assunto = Range("A1")
Dest = Range("A2")

ActiveWorkbook.SendMail recipients:= Dest, subject:= Assunto

[danilobtos]

Ok.
Funcionou. É isso mesmo. Maz já tenho uma atalização pra éla.

No exemplo acima; os dados de contato e assunto estão na mesma planilha.

E se eu quizer deixar um arquivo exclusivos pra estes dados (E-mail e Assunto); exemplo:

Tenho um arquivo excel (vamos denomila-lo de "BASE"); neste "Base" eu executo um filtro e jogo o conteúdo "Filtrado" em um novo arquivo excel (tudo via VBA; o nome deste novo arquivo é indiferente pramim; e também nao preciso dele salvo. Maz se for necessário para rodar o VBA sem problemas).

Agora tenho que enviar esse novo arquivo excel (o resultado do filtro) por e-mail. O 'destinatário' e o 'assunto' do e-mail está lá na planilha "BASE".

No codigo que você informou funciona certinho porque os dados estao na mesma planilha; eu nao consigo informar que estes dados estao em outro arquivo.

At;
Dann.

[danilobtos]

Segue arquivo de como está hoje.

[Rafael Monteiro]

E como faz para abrir somente a janela de email, sem o anexo?

[Rafael Monteiro]

Problema resolvido, consegui resolver o código referente a ultima pergunta feita.


Sub Email()

Dim olApp As Object
Dim Msg As Object

Set olApp = CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(0)

Msg.Display

Set Msg = Nothing
Set olApp = Nothing

End Sub

[wallensteinjunior]

E como faz para abrir somente a janela de email, sem o anexo e com o email padrão xxx@gmail.com para ser enviado? Obrigado!