Claudio Roberto

Boa tarde Tenho um código de envio de e-mail pelo vba excel, o mesmo funciona normalmente, porém não consigo configurar para que a pessoa não veja o e-mail sendo enviado, pois quando configuro o método de envio como send, a assinatura não aparece no e-mail, vou colocar o código, se alguém puder me ajudar por favor Segue o código Dim OApp As Object, OMail As Object Set OApp = CreateObject ("Outlook.Application") Set OMail = OApp.CreateItem (0) With OMail .display End With Signature = OMail.HTMLbody With OMail Introdução = Plan01.Range ("W6") 'Corpo E-mail .To = Range ("T2") 'Destinatário .Subject = Range ("W5") 'Assunto .attachments.Add Plan01.[A4].Value 'Descrição do Arquivo .HTMLbody = Introdução & "<br>" & HtmlContent & "<br>" & Signature 'Corpo e-mail + assinatura .send End With Set OMail = Nothing Set OApp = Nothing Application.DisplayAlerts = False Lembrando que o código está funcionando normalmente, pois somente quero que a pessoa não veja o e-mail sendo enviado Obrigado

Bom dia amigo, me atendeu perfeitamente, obrigado pela ajuda e parabéns por seu trabalho.

Boa noite, aproveitando o gancho, eu utilizo este cógigo Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "A6" Then Range("B6").Select ElseIf Target.Address(False, False) = "B6" Then Range("A7").Select End if End sub Por exemplo, quando digito um valor na celula A6, ele pula automaticamente para celula B6, da B6 para A7, da A7 para B7, e assim vai, mas preciso aplicar esse procedimento até a celula b1000, porém apresente o erro do colega acima, "procedimento muito grande", será que alguém poderia me ajudar com esse caso Agracedo quem puder me ajudar.