Erro no Codigo pra mandar email pelo excel com anexo

Bom dia a todos, fiz uma planilha no excel em que eu digito dados nela clico em um botão que coloquei na planilha que executa um macro e os dados sao enviados diretamente pro email da minha secretaria, pois bem, gostaria de adaptar esse macro para que ele envie a própria planilha por anexo no email nao somente os dados das células, alguém poderia me dar alguma sugestão de como faze? Segue meu código abaixo

Sub email()
'
' email Macro
'

'

'
   Dim oMensagem As Object
   Dim oConfiguração As Object
   Dim vFields As Variant

   Set oMensagem = CreateObject("CDO.Message")
   Set oConfiguração = CreateObject("CDO.Configuration")

       oConfiguração.Load -1 'Padrões CDO
       Set vFields = oConfiguração.Fields
       With vFields
           .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                     
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
           .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "MeuEmail"
           .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MinhaSenha"
           .Update
       End With


     
   With oMensagem
       Set .Configuration = oConfiguração
       .To = "Email do destinatario"
       .CC = ""
       .BCC = ""
       .From = """Adir Nesi"" "
       .Subject = "Contrato Venda"
       .TextBody = Plan1.Cells(22, 1)
       .Send
       MsgBox ("Mensagem enviada com Sucesso ! ")
   End With
End Sub


Obrigado.

Bom dia Adir..seja bem vindo ao nosso fórum.

Quero apenas lhe lembrar que esse fórum, é para Access.

Existe diferença na programação do Access para o Excel.

Sugiro a ti, buscar algum fórum que trate com mais profundidade do Excel.

Abraços e sucesso a ti.

Silvio

Ok Silvo, estranho, pq achei esse código aqui mesmo no forum.

mais vamos mudar a pegunta entao

no código acima eu acrescentei a seguinte linha

.Attachments.Add "d:\Users\Adir\Desktop\teste.txt"
.Send

resulta no erro

Erro em tempo de execução '13':

Tipos Incompatíveis

Sim, eu conheço esse código... ele foi desenvolvido se não me falha a memória...pelo Criquio, um dos moderadores desse fórum.

Mas você disse :

" fiz uma planilha no excel em que eu digito dados nela clico em um botão que coloquei na planilha que executa um macro e os dados sao enviados diretamente pro email da minha secretaria, pois bem, gostaria de adaptar esse macro para que ele envie a própria planilha por anexo no email nao somente os dados das células, alguém poderia me dar alguma sugestão de como faze? Segue meu código abaixo".

As estruturas e códigos do Access para o Excel divergem em algumas coisas. Por isso que te falei para ir a um fórum dedicado ao excel,
como este aqui