Opção para Anexo

2024 - VBA & Macros

Post Recente por romanholi 7 anos atrás

3 Posts

2 Usuários

0 Reactions

977 Visualizações

RSS

romanholi

(@romanholi)

Posts: 177

Estimable Member

Topic starter

Pessoal, bom dia!

O código abaixo permite enviar um e-mail com a planilha no corpo do e-mail. Porém, as vezes, além desta planilha que vai no corpo do e-mail, necessito anexar um arquivo junto com o e-mail. Será que é possível incluir essa opção? Aparece um msgbox perguntando se deseja anexar um arquivo e a caixa para escolher o arquivo, daí envia o e-mail!

Vide código que estou utilizando:

Sub Enviar_Questionamento()
   
   ' Seleciona o intervalo de células a serem enviadas por email.
   ActiveSheet.Range("B1:B16").Select
   
   ActiveWorkbook.EnvelopeVisible = True
   
  
   With ActiveSheet.MailEnvelope
      .Introduction = "Caro Gestor." & vbCr & "Favor justificar a variação do item abaixo e formalizar se podemos considerar o novo preço." ' Texto Corpo do e-mail
      .Item.To = "romanholi@gmail.com"
      .Item.Cc = "feromanholi@gmail.com"
      .Item.Subject = Range("C2") & " - Variação de Preços"
      '.Item.Send
   End With
End Sub

Obrigado Pessoal

Postado : 01/12/2017 11:21 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

romanholi,

Boa tarde!

Mude seu código para este:

    Sub Enviar_Questionamento()
        Dim Arquivo As String
       
       ' Seleciona o intervalo de células a serem enviadas por email.
       ActiveSheet.Range("B1:B16").Select
       
       ActiveWorkbook.EnvelopeVisible = True
       
       Arquivo = Application.GetOpenFilename() 'Aqui, se desejar, pode utilizar os parâmetros Filter, FileIndex e Filter.
     
       With ActiveSheet.MailEnvelope
          .Introduction = "Caro Gestor." & vbCr & "Favor justificar a variação do item abaixo e formalizar se podemos considerar o novo preço." ' Texto Corpo do e-mail
          .Item.To = "romanholi@gmail.com"
          .Item.Cc = "feromanholi@gmail.com"
          .Item.Subject = Range("C2") & " - Variação de Preços"
          .Item.Attachments.Add (Arquivo)
          '.Item.Send
       End With
    End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/12/2017 3:32 pm