Pensei em tirar esta rotina e colocar essa aqui, mas acho que tem erro, poderiam acertar pra mim ?

Sub enviaPlanilhaAtiva_Gauer()

Dim oOutlook As Object
Dim oEmail As Object
Dim wbAtual As Workbook
Dim sNomeArquivo As String
Dim sLocalTemp As String
Application.ScreenUpdating = False

Set oOutlook = CreateObject("Outlook.Application")
Set oEmail = oOutlook.CreateItem(0)
sLocalTemp = "C:temp"

' Copia a planilha ativa e salva em local temporário
ActiveSheet.Copy
'Set wbAtual = ActiveWorkbook
 Set wbAtual = ActiveSheet

' Aqui você define qual planilha deve ser gravada
'sNomeArquivo = wbAtual.Worksheets(1).Name
sPlanAEnviar = "PEDIDO GAUER"


On Error Resume Next
Kill sLocalTemp & sNomeArquivo
On Error GoTo 0
wbAtual.SaveAs Filename:=sLocalTemp & sNomeArquivo

With oEmail
    '.To = "destino@gmail.com"
    '.Subject = "Assunto"
    '.body = "Corpo do e-mail"
    .Attachments.Add wbAtual.FullName
    .Display
End With

'Deleta o arquivo temporário
wbAtual.ChangeFileAccess Mode:=xlReadOnly
Kill wbAtual.FullName
wbAtual.Close SaveChanges:=False

Set oEmail = Nothing
Set oOutlook = Nothing
End Sub

o fato é se fosse pra enviar por PDF, eu ja tenho a rotina que o Wagner Moriel me passou, mas nesta rotina preciso enviar uma aba apenas da planilha com o pedido, e eu queria adaptar ao corpo do email uma mensagem , pois da forma que ja esta, so consigo enviar o assunto, mas sem corpo, por isso é que queria implantar esta rotina acima e nao a primeira.

Mas quero que o arquivo depois de enviado seja excluido.

Grato

Eu nao recomendo excluir o arquivo assim que for enviado, sugiro que vc exclua esse arquivo apos o recebimento da mercadoria.

E mais seguro, e facilita a conferencia do seu pedido com o que o fornecedor enviou.

mas quando eu envio, é porque ja salvei em PDF entendeu

Espero que possa me encaminhar a rotina hehe.

Garto amigao, vcs tem me ajudado bem

Andre

a outra rotina que envia por pdf eu envio para o lojista, essa nao posso enviar em PDF tem que ser so uma das abas, . Ja ate esta enviando, mas quero acoplar um corpo a mensagem e este corpo quero que seja uma das celulas da planilha, e nessa e bom que seja numa pasta temporaria e na sequencia excluida, entedeu ?

grato

fuçando aqui , consegui fazer, mas nao esta ainda enviando automaticamente, fica estacionado na tela de email. Gostaria que a Macro enviasse automaticamente.

Sub enviaPlanilhaAtiva_Gauer()

Dim oOutlook As Object
Dim oEmail As Object
Dim wbAtual As Workbook
Dim sNomeArquivo As String
Dim sLocalTemp As String
Application.ScreenUpdating = False

Set oOutlook = CreateObject("Outlook.Application")
Set oEmail = oOutlook.CreateItem(0)
sLocalTemp = "C:UsersAndreDesktopPedidos Gauer"

' Copia a planilha ativa e salva em local temporário
ActiveSheet.Copy
Set wbAtual = ActiveWorkbook

' Aqui você define qual planilha deve ser gravada
sNomeArquivo = wbAtual.Worksheets("PEDIDO GAUER").Name


On Error Resume Next
Kill sLocalTemp & sNomeArquivo
On Error GoTo 0
wbAtual.SaveAs Filename:=sLocalTemp & sNomeArquivo

With oEmail
    .To = "atendimento-rj@gauerdobrasil.com.br"
    .Subject = "teste"
    .Body = "Isso e um teste"
    .Attachments.Add wbAtual.FullName
    .Display
End With

'Deleta o arquivo temporário
wbAtual.ChangeFileAccess Mode:=xlReadOnly
Kill wbAtual.FullName
wbAtual.Close SaveChanges:=False

Set oEmail = Nothing
Set oOutlook = Nothing


End Sub

Agora foi amigos,

mudei para

.Send

With oEmail
.To = "[email protected]"
.Subject = "teste"
.Body = "Isso e um teste"
.Attachments.Add wbAtual.FullName
.Display

abracos

Andre