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á!
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
vlw cara...vou tentar qq coisa peço ajuda de novo..rsrs
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