MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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 : 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 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?
    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 73
    Registrado : 06/12/2018

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

    Mensagem  kasa1982 21/6/2021, 20:50

    Amigo, boa tarde

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

      Data/hora atual: 24/7/2021, 09:05