MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Ricciardone
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 22/04/2016

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

    Mensagem  Ricciardone em 5/3/2020, 03:25

    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?

      Data/hora atual: 9/8/2020, 15:39