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

2 participantes

    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
    Kellyton
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Kellyton 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: 1/2/2023, 06:20