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

    Como usar o Método DoCmd. SendObject (Access) se o usuario usa o OUTLOOK365 na nuvem ?

    avatar
    ricardoo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 05/05/2015

    Como usar o Método DoCmd. SendObject (Access) se o usuario usa o OUTLOOK365 na nuvem ?  Empty Como usar o Método DoCmd. SendObject (Access) se o usuario usa o OUTLOOK365 na nuvem ?

    Mensagem  ricardoo em 1/4/2019, 15:46

    Tenho uma aplicação que roda normalmente, em determinado modulo o usuário envia relatórios utilizando o outlook, uso o método "Método DoCmd. SendObject (Access)".
    Porém um novo cliente deseja usar a aplicação, mas usa o pacote office pela nuvem (Office365), alguem ja enfrentou este problema ? tem como contornar ?
    Shocked Obrigado
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    Como usar o Método DoCmd. SendObject (Access) se o usuario usa o OUTLOOK365 na nuvem ?  Empty Re: Como usar o Método DoCmd. SendObject (Access) se o usuario usa o OUTLOOK365 na nuvem ?

    Mensagem  brunoluizmaia em 6/1/2020, 13:01

    Boas,

    Deverá enviar e-mail via CDO.

    Segue uma solução que utilizo.

    Criar um módulo e colar e depois criar um botao enviar e chamar a função "Call enviaremailhot()"


    Function enviaremailhot()



    Dim iMsg, Cdo_Conf, Flds, sch



    sch = "http://schemas.microsoft.com/cdo/configuration/"
    Set Cdo_Conf = CreateObject("CDO.Configuration")


    'Variaveis
    Dim servidor_smtp As String
    Dim conta_autenticada As String
    Dim senha_para_envio As String
    Dim email_origem As String
    Dim email_destino As String
    Dim email_porta As Integer
    Dim email_assunto As String
    Dim email_corpo As Long


    'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

    servidor_smtp = "smtp.live.com" ' Informacoes so seu servidor SMTP
    senha_para_envio = "senha!" ' senha da conta de e-mail
    email_origem = "seuemail@hotmail.com" ' e-mail que indica de onde partiu a mensagem
    email_destino = "destino@gmail.com" ' e-mail que vai receber as mensagens do formulario
    email_assunto = "Teste" ' Assunto do email
    email_corpo = "Teste corpo do Email..." ' Corpo do Email
    email_porta = 25 ' porta smtp



    Cdo_Conf.Fields.Item(sch & "sendusing") = 2
    Cdo_Conf.Fields.Item(sch & "smtpauthenticate") = 1
    Cdo_Conf.Fields.Item(sch & "smtpserver") = servidor_smtp
    Cdo_Conf.Fields.Item(sch & "smtpserverport") = email_porta
    Cdo_Conf.Fields.Item(sch & "smtpconnectiontimeout") = 60
    Cdo_Conf.Fields.Item(sch & "sendusername") = email_origem
    Cdo_Conf.Fields.Item(sch & "sendpassword") = senha_para_envio
    Cdo_Conf.Fields.Item(sch & "smtpusessl") = True
    'Cdo_Conf.Fields(sch & "urlproxyserver") = "10.111.2.139"
    'Cdo_Conf.Fields(sch & "proxyserverport") = "443"

    Cdo_Conf.Fields.Update

    Dim cdo_mensagem As Object

    Set cdo_mensagem = CreateObject("CDO.Message")
    Set cdo_mensagem.Configuration = Cdo_Conf



    cdo_mensagem.BodyPart.Charset = "iso-8859-1"
    cdo_mensagem.From = email_origem
    cdo_mensagem.To = email_destino
    cdo_mensagem.Subject = email_assunto


    '------Para anexar arquivo use uma das linguagens abaixo
    'Cdo_Mensagem.AddAttachment (ThisWorkbook.Path & "\Envio\Arquivo das Lojas Envio.xlsm")
    'ou
    'Cdo_Mensagem.AddAttachment ("C:\Envio\Arquivo das Lojas Envio.xlsm")
    Dim strBody As String


    strBody = email_corpo



    cdo_mensagem.HTMLBody = strBody

    cdo_mensagem.Send



    Set cdo_mensagem = Nothing
    Set Cdo_Conf = Nothing



    MsgBox "E-mail enviado com sucesso"

    End Function

      Data/hora atual: 29/11/2020, 19:32