Este fórum está sendo desativado

[rit]

Bm dia Amigos,


Eu gostaria de saber o que eu preciso inserir nesse código para que eu possa selecionar a planilha que eu desejo enviar em anexo, no caso a pasta tem 5 planilhas e eu desejo enviar apenas uma delas e nao a pasta toda

Código: Selecionar todos

Sub ENVIAR()

Dim OutApp As Object
Dim OutMail As Object


Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItem(0)

 

On Error Resume Next

With OutMail
  .to = ""
  .CC = ""
  .BCC = ""
  .Subject = "FOLLOW UP"
  .Body = "Senhores, bom dia!"
  .Attachments.Add ActiveWorkbook.FullName
  .Display

    End With

    On Error GoTo 0

 

    Set OutMail = Nothing

    Set OutApp = Nothing

End Sub

[wesleyribeiro123]

Rit
Bom dia,

Amigo, o teu código está correto, porém para enviar anexar o arquivo em específico é necessário abrir o mesmo e assim executar este código:

Código: Selecionar todos

.Attachments.Add ActiveWorkbook.FullName

Eu te aconselharia incluir o comando abaixo no início do teu código:

Código: Selecionar todos

Application.DisplayAlerts=False
Workbooks.Open "Endereço + Nome do arquivo.xlsx"

E no final do teu código incluir este comando:

Código: Selecionar todos

Workbooks.Close
Application.DisplayAlerts = True

[rit]

Eu adicionei essas linhas que você falou porém não adiantou continua mandando a pasta toda, o que eu preciso é que mande apenas uma ABA da pasta, e no caso eu queria selecionar ela "ABA" ou deixar ela pré selecionada no código.

[alexandrevba]

Bom dia!!
'Para mais veja..
'https://www.thespreadsheetguru.com/blog ... gh-outlook
'https://www.rondebruin.nl/win/s1/outlook/mail.htm

Código: Selecionar todos

Sub ENVIAR()

Dim OutApp As Object
Dim OutMail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        Filename = .SelectedItems(1)
    End With

    With OutMail
      .To = ""
      .CC = ""
      .BCC = ""
      .Subject = "FOLLOW UP"
      .Body = "Senhores, bom dia!"
      '.Attachments.Add ("C:\Users\Administrador\Downloads\test.txt") 'Uma forma também seria...
      .Attachments.Add Filename, 1
      .Display
    End With
On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

Att

[rit]

O Link ja tem um pronto que me atendeu perfeitamente obrigado!

Agora sobre um codigo que voce escreveu pra mim(AleVba), tem uma parte que é um calculo para as datas eu tentei alterar para ele trazer mais dados mas sem sucesso, como eu faço para que ele busque
além do que esta atrasado duas semanas para frente, a partir de hoje a parte do código é essa eu acredito.

Código: Selecionar todos

"=INT((TODAY()-S4+1))"