Como vc nao indicou em que parte do codigo o erro acontece ja que tem 3 momentos que vc usa a instrução Envio, entao sugiro que vc faça o seguinte utilize essa parte do codigo (se for possivel), onde esta ocorrendo o erro fora do with

Mas com o teste que fiz diz que falta alguma coisa depois de Envio

Objeto é obrigatorio.

Vc pretente enviar o valor da celula I4???

É isso???

o ero ja da no 1º .Envio

If Sheets("MAPA").Range("F2").Value > 0 Then
.Attachments.Add "C:UsersAndreDesktopPedidos Gauer" & Sheets("MAPA").Range("F2").Value & Sheets("MAPA").Range("I2").Value
Else
.Envio 'Display

na minha celula I4 eu pretendo por Display ou Send.

Envio nao seria para enviar o email??

Da forma que vc esta fazendo esta carregando dentro da variavel Envio o valor da celula I4

Vc esta dizendo que envio é = Display ou Send como preferir??

Envio nao seria o Start do Envio do email como se vc clicasse no botao enviar do outlook?

Acho que o problema esta neste ponto.

Envio nao seria para enviar o email??

Da forma que vc esta fazendo esta carregando dentro da variavel Envio o valor da celula I4

Vc esta dizendo que envio é = Display ou Send como preferir??

Envio nao seria o Start do Envio do email como se vc clicasse no botao enviar do outlook?

Acho que o problema esta neste ponto.

Isso Envio e para enviar o email, pois poderia ser SEnvio, ou nome, pois seria aquilo que eu colocasse na celula I4 na Aba MAPA.

SE essa Dim fosse em To, BCC, Subject, aceitaria, pois eu uso , mas nesta linha de comando .Send ou .Display parace nao aceitar.

veja que em BCC uso uma variavel

.BCC = SDest

em outra macro que tenho uso

.To = sQualEmail

mas aqui nao tem por exemplo .Envio = Display 'Send e somente o

.Display 'Send ja direto, deu a entender ?

Se no inicio do codigo eu ja coloquei que Envio = I4 e em I4 vai depender do que esta la dentro Dispaly ou Send, entao nao to entendendo por qque da erro ??

mesmo eu pondo

Dim Envio
Envio = Display

.Envio

tambem nao vai e da o erro

mas se eu coloquei que Envio = Display tinha que ir concorda ?

Exatamente como eu disse que eu disse em o valor da celula nao serve como comando e sim como um valor para pesquisa/prenenchimento.

Qdo vc usa em To (Para), o que vc carrega da celula é o valor para o email que esta na celula x carregado na variavel.

Sao instruções diferentes e por isso ta dando erro.

No Seu exemplo sQualEmail é uma variavel que carrega um email que esta em uma celula/lista o memso acontece com a variavel SDest que tb carrega um email/lista para que seja enviado a aquele destinatario.

Send é um comando e ate onde sei, nao da pra ser carregado atraves de uma celula como um valor digitado.

ë isso mesmo Prudencio, pela que entendi aqui , cheguei tb a esta conclusao. Desta forma entao nao tem mais o que se fazer.

Vou deixar isso quieto entao.

Te agradeço o empenho na ajuda.

Grande abraço

André

Send é um comando e ate onde sei, nao da pra ser carregado atraves de uma celula como um valor digitado.

Entendi e vc tá certo, mas será que nao exixtiria uma forma de burlar isso. Ou entao acrescentar IF Else ? Talvez funcione, mas conforme abaixo, ja estou usando muitos If Else, vou bater aqui cabeça e ver se consigo encaixar mais alguns IF Else. Se tiver uma ideia melhor ou quem sabe será que IF Else teria mais argumentos ?

.Attachments.Add "C:UsersAndreDesktopPedidos Gauer" & Sheets("MAPA").Range("F1").Value & Sheets("MAPA").Range("I1").Value

If Sheets("MAPA").Range("F2").Value > 0 Then
.Attachments.Add "C:UsersAndreDesktopPedidos GauerBanner" & Sheets("MAPA").Range("F2").Value & Sheets("MAPA").Range("I2").Value
Else
.Send 'Display
End If

If Sheets("MAPA").Range("F3").Value > 0 Then
.Attachments.Add "C:UsersAndreDesktopPedidos GauerBanner" & Sheets("MAPA").Range("F3").Value & Sheets("MAPA").Range("I3").Value
Else
.Send 'Display

End If

.Send 'Display

MPrudencio meu amigao !!!

Achei uma forma

       .Attachments.Add "C:UsersAndreDesktopPedidos Gauer" & Sheets("MAPA").Range("F1").Value & Sheets("MAPA").Range("I1").Value
       .Attachments.Add "C:UsersAndreDesktopPedidos GauerBanner" & Sheets("MAPA").Range("F2").Value & Sheets("MAPA").Range("I2").Value
       .Attachments.Add "C:UsersAndreDesktopPedidos GauerBanner" & Sheets("MAPA").Range("F3").Value & Sheets("MAPA").Range("I3").Value
       
If Sheets("MAPA").Range("I4").Value = "Send" Then
       .Send
        
Else

       .Display

End If
 

Porem agora terei que pensar uma forma de fazer com que caso algum anexo acima esteja com as Celulas F2/I2 e F3/I3 em branco, como evitar o erro que esta dando agora, pois antes eu usava o If / Else, mas nao encontrei uma forma agora, mas vou quebrar aqui um pouco mais de cabeça, se tiver uma ideia melhor ...

Grato

Consegui !!!

       .Attachments.Add "C:UsersAndreDesktopPedidos Gauer" & Sheets("MAPA").Range("F1").Value & Sheets("MAPA").Range("I1").Value
 If Sheets("MAPA").Range("F2").Value > 0 Then
       .Attachments.Add "C:UsersAndreDesktopPedidos GauerBanner" & Sheets("MAPA").Range("F2").Value & Sheets("MAPA").Range("I2").Value
Else
    End If
 If Sheets("MAPA").Range("F3").Value > 0 Then
       .Attachments.Add "C:UsersAndreDesktopPedidos GauerBanner" & Sheets("MAPA").Range("F3").Value & Sheets("MAPA").Range("I3").Value
Else
    End If
       
       
If Sheets("MAPA").Range("I4").Value = "SEND" Then
       .Send
Else
       .Display
End If
      

Grato !!

Para fechar este topico, agora apareceu isso aqui

Programa tentando enviar email em seu nome. Se isso for inesperado, clique em Negar e verifique se o Software antivirus esta atualizado.

Permitir - Negar - Ajuda

porem quando vou em Acesso de Programacao do outlock 2013, nao tenho acesso a Seguranca do Acesso de Programacao, e la esta marcado Avisar sobre atividades suspeitas quando meu software antivirus estiver inativo ou desatualizado.

Porem eu uso so o Defender e o mesmo esta ativo e atualizado.

tem algo que eu possa fazer ?

Sei la mas tenta atualizar o antivirus.

consegui, fui em outolock e entrei como adiministrador e fiz os acertos.