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


    Gmail - Enviados

    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    Gmail - Enviados Empty Gmail - Enviados

    Mensagem  janettepires 26/7/2017, 20:05

    Boa tarde!

    Estou usando o código abaixo para enviar e-mails de cobrança, porém gostaria que ficasses salvo na pasta ENVIADOS do Gmail. Percebi que só fica salvo em ENVIADOS se eu colocar o email do remetente como destinatario tambem.


    ***************************

    Set Config = New CDO.Configuration

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'seu servidor de e-mail
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xxx ' porta usada pelo seu servidor de e-mail
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Me.txtDeMail" 'user do servidor
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'coloque a senha do seu email
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    .Fields.Update

    End With

    If Me.txt_sit = "A VENCER" Then

    Set Mens = New CDO.Message

    With Mens

    Set .Configuration = Config

    .From = Me.txtDeMail & "@vending.com.br"
    .To = Me.Para


    .HTMLBody = "Prezado cliente," & "

    " & "

    Lembramos que seu título nº " & Me!txt_Documento & " vencerá em " & Me!txt_Data & "." & "

    Em caso de dúvidas, por favor, contate-nos." & "

    Se você já efetuou o pagamento, por favor, desconsidere este e-mail." & "

    " & "

    Atenciosamente " & "

    Financeiro " & "

    VENDING Comercial S/A " & "

    55 11 xxxx7-3443 | PABX 55 11 xxxx7-3430 - Ramal 3443"

    .Subject = "Lembrete: Vending Comercial S/A"
    .Send

    End With
    MsgBox "Menssagem enviada com sucesso"

    endif
    ************************

    Obrigada!

      Data/hora atual: 29/3/2024, 00:17