MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Gmail - Enviados

    Compartilhe
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Gmail - Enviados

    Mensagem  janettepires em Qua 26 Jul 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: Seg 25 Set 2017, 10:37