Enviar Arquivo de Calendário (.ics) via email

Numa planilha de excel mensalmente faço a escala de serviço de algumas equipes.
Em seguida, essas informações são importadas para o access, processadas e exporto arquivos de compromisso de calendário ( extensão .ics)
Isso está funcionando normalmente.

Ao enviar esse arquivo por email (envio manual), funciona conforme o desejado: Ao clicar no anexo do email no celular, os compromissos são importados automaticamente para o calendário do telefone.

No entanto, ao fazer o envio do email automaticamente (pelo VBA), esse mesmo arquivo não é reconhecido no celular como compromissos e portanto a importação não funciona.

Estou imaginando que o problema esteja sendo na formatação do email.
Abaixo, o código que uso para fazer o envio do email pelo Outlook.

Código:


Public Sub Novoemail()
Dim arquivo, Mensagem, Assunto As String

    Assunto = "Arquivo de Escala"
    Mensagem = "Encaminho o arquivo de escala para calendário eletrônico"
    arquivo = PASTA & NomeFuncionario & ".ics"

Dim OutApp As Object
Dim OutMail As Object


Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = "toplynemacae@gmail.com"
    .Subject = Assunto
    .Body = Mensagem
    .Attachments.Add arquivo
    .Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub


Alguém teria alguma dica para dar?

Amigo, boa tarde

Como você montou o arquivo para anexar ao e-mail? poste o código por gentileza.