Bom dia!!

Use a Pesquisa e a Biblioteca.

Leia:
http://www.rondebruin.nl/sendmail.htm

Eu dei uma lida mas realmente não consigo fazer.

Prezados Senhores: Integrantes do Fórum

Peço-lhes ajuda mais uma vez por gentileza e se possível for que solucione uma tarefa que venho tentando executar e que até agora não conseguir desvendar. É o seguinte: manipulamos em nosso departamento uma planilha de Controle de atividades com os seguintes dados:

Coluna A – Item
Coluna B – Descrição da pendencia
Coluna C – DaResponsável
Coluna D – Controle
Coluna E - Inicio
Coluna F - Fim

Há Senhores, alguma fórmula ou alguma macro que facilite o meu serviço na identificação de datas da Coluna F – Data de Vencimento, que envie um e-mail através do outlook ao responsável coluna C automaticamente?

desde já
Muito obrigado

Boa tarde!!

Use nossa base de dados Pesquisa.

Leia também:
http://www.rondebruin.nl/sendmail.htm

Att

Tenho um que envia email atraves de smtp, sem passar pelo outlook, mais o seu firewall tem que deixar sair pela porta 465 do smtp, eu uso o gmail, pra enviar os email, muit legal, esse site ai que nosso mestre alexandrevba postou

abraço

se eu te mandar minha planilha consegue adaptar pra mim?

Boa tarde, estou tentando mas não tenho experiência com vba, me passaram um código para enviar email quando a data da atividade vencer, só que não consigo adaptar a minha planilha

segue o código e tbm em anexo a planilha alguem consegue me ajudar é muito importante para o meu trabalho.

Sub Mail_Outlook_Express()
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Recipient = "[email protected]"
Subj = "Assunto do Email"

msg = "Texto da mensagem"

msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End Su

muito obrigado.

Gupastrelo, juntei os tres tópicos por se tratarem do mesmo assunto, peço a gentileza e quando abrir um tópico continuar no mesmo, pois se todos resolverem abrir novos tópicos sobre o mesmo assunto só pelo motivo de não estarem tendo as respostas de imediato, o Forum não aguentará tantos posts e teremos de deletar as mensagens.
Peço paciencia, pois as ajudas em Foruns são voluntárias e depende tambem de tempo disponivel.

Grato pela compreensão

Mauro Coutinho

Olá, montei um código que acho que vai ajudá-lo. Ele está passando pelas linha e verificando se alguma das atividades está com prazo vencido, caso esteja e não tenha sido concluída envia a mensagem com um texto padrão.

Você precisa modificar o código inserindo os e-mails seus e dos destinatários (recomendo que faça isso por uma tabela), e colocar o texto do modo que você quiser. A macro está sendo executada manualmente, mas pode ser executada por botão ou assim que você abrir a planilha, você pode alterar facilmente para qualquer um dos casos.

Bem qualquer dúvida estou à disposição.

Tacito bom dia, desde já muito obrigado pelo apoio , eu já inseri um botão para executar a macro a justei o texto, como faço para inserir uma tabela no código? ( sou muito leigo no assunto)
por exemplo são no momento quatro responsáveis podendo haver mais, que são

Gustavo - [email protected]
Erick - [email protected]
Luis - [email protected]
Sarita - [email protected]

Obrigado.

Gupa, de uma olhada no tópico abaixo e adapte a sua rotina conforme as linhas da rotina postada neste tópico na parte que menciona :

With Sheets("Contatos")
LR = .Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To LR
stDestin = .Cells(i, 1).Value
stTitulo = .Cells(i, 2).Value
.............
.......................

Ou seja, crie uma Aba com o nome de "Contatos" e nela a relação dos destinatarios, assim a instrução acima adaptada fará um loop nesta aba e armazenará cada endereço de email enviando.

Uma OBS: Procure não colocar emails verdadeiros em Foruns.

[]s