Este fórum está sendo desativado

[gmarotti]

Não estou consegindo finalizar minha planilha, montei a mesma com algumas abas ocultas, sendo ela email (onde o conteudo do email é formado), e principal onde faço os lancamentos e pego os dados.

o email da pessoa que deve receber esta em PRINCIPAL!H1
como coloco na formula abaixo?


Sub EMAIL()

Application.ScreenUpdating = False
Sheets("EMAIL").Visible = True
Sheets("EMAIL").Select
ActiveSheet.Range("A1:F17").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = "????"
.Item.Subject = "T-Maki Restaurante - PEDIDO"
.Item.Send

Sheets("EMAIL").Select
Sheets("EMAIL").Visible = False
Application.ScreenUpdating = True
Sheets("PRINCIPAL").Select

End With

End Sub

[daniexcel]

segue uma macro que tenho para envio de email.. espero que possa te ajudar

Código: Selecionar todos

     Dim OL              As Object
     Dim EmailItem       As Object
     Dim Wb              As Workbook
      
     Application.ScreenUpdating = False
     Set OL = CreateObject("Outlook.Application")
     Set EmailItem = OL.CreateItem(olMailItem)
     Set Wb = ActiveWorkbook
     Wb.Save
     With EmailItem
         .Subject = "coloque aqui o assunto"
         .Body = "coloque aqui o texto"
         .To = email@email.com
         .Importance = olImportanceNormal
         'ou olImprotanceHigh Ou olImprotanceLow para definar o grau de importância
         .Attachments.Add Wb.FullName
         .Send
     End With
      
     Application.ScreenUpdating = True
      
      
      
     Set Wb = Nothing
     Set OL = Nothing
     Set EmailItem = Nothing