Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Enviando por email,...
 
Notifications
Clear all

Enviando por email, copiar destinatário direto da celula

 
2024 - VBA & Macros
Post Recente por FCARVALHO 12 anos atrás
4 Posts
2 Usuários
0 Reactions
1,392 Visualizações
RSS
 FCARVALHO
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

olá Meu nome é Felipe.

utilizo essa planilha para confirmar a entrega de equipamentos reparados ao cliente.
necessito de um código para inserir em uma macro que utilizo...
gostaria que quando clicasse no botão, a planilha ativa (em PDF) fosse enviada diretamente para o email que esta na celula ex(W6).Nessa celular utilizo o PROCV para preencher automaticamente o email do cliente de acordo com o banco de dados.

ele já está funcionando a conversão para PDF e abrindo a janela de envio do email.Gostaria somente de acrescentar um código para preencher o email automaticamente.

estou utilizando o codigo abaixo:

Sub Envia_email()

' Envia_email Macro
' envia documento por email.

'Salva o arquivo
ActiveWindow.SmallScroll Down:=-15
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:DesktopCONFIRMAÇÃO DE ENTREGA.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.SmallScroll Down:=21

'Nome do Arquivo a ser anexado
Filename = "C:DesktopCONFIRMAÇÃO DE ENTREGA.pdf"

'Envia o email

Set myActiveSheet = CreateObject("Outlook.Application")
Set objMail = myActiveSheet.CreateItem(olMailItem)
Set myAttachments = objMail.Attachments

With objMail
.TO = ""
.Subject = "Confirmação de Entrega de Equipamento(s) &data &hora"
.HTMLBody = "Prezado cliente, essa é uma confirmação de entrega dos equipamentos enviados para reparo, para confirmar o recebimento dos mesmos, basta abrir o arquivo PDF em anexo e clicar no link em <u>verde</u>. Caso ainda não tenha recebido os equipamentos e queira informar nossa equipe de logistica, basta clicar no link em <u>vermelho</u>."
myAttachments.Add Filename
.display

End With

End Sub

obrigado desde já!

 
Postado : 20/06/2012 6:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Agora não posso olhar com tempo mas, você consegue adaptar o código abaixo?
Fonte: http://support.microsoft.com/kb/816644 

Sub Send_Range()
   
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:B5").Select
   
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "E-Mail_Address_Here"
      .Item.Subject = "My subject"
      .Item.Send
   End With
End Sub
 
Postado : 20/06/2012 11:36 am
 FCARVALHO
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

vlw cara...vou tentar qq coisa peço ajuda de novo..rsrs

 
Postado : 21/06/2012 2:42 pm
 FCARVALHO
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

Boa noite Alexandre,
como faço para ele colar a celula selecionada na caixa de texto ou do outlook(conforme meu exemplo) ou do excel (conforme seu exemplo)? Quando uso o (cutcopymode) ele não cola o valor.

abraço

 
Postado : 21/06/2012 3:55 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico