VBSENDMAIL - CONFIRMACAO DE LEITURA

Private Sub EnviandoEmail(Destino As String, Copia As String, Mensagem As String, protocol As String, Anexo As String)

        
      
    [ô] *****************************************************************************
    [ô] This is where all of the Components Properties are set / Methods called
    [ô] *****************************************************************************

    [ô]Screen.MousePointer = vbHourglass

    With poSendMail

        [ô] **************************************************************************
        [ô] Optional properties for sending email, but these should be set first
        [ô] if you are going to use them
        [ô] **************************************************************************

        .SMTPHostValidation = VALIDATE_NONE         [ô] Optional, default = VALIDATE_HOST_DNS
        .EmailAddressValidation = VALIDATE_SYNTAX   [ô] Optional, default = VALIDATE_SYNTAX
        .Delimiter = [Ô];[Ô]                            [ô] Optional, default = [Ô];[Ô] (semicolon)

        [ô] **************************************************************************
        [ô] Basic properties for sending email
        [ô] **************************************************************************
        .SMTPHost = [Ô]mail.quasarproducoes.com.br[Ô]                  [ô] Required the fist time, optional thereafter
        .from = [Ô]ouvidoriamunicipal@quasarproducoes.com.br[Ô]                       [ô] Required the fist time, optional thereafter
        .FromDisplayName = [Ô]OUVIDORIA MUNICIPAL[Ô]        [ô] Optional, saved after first use
        .Recipient = Destino                    [ô] Required, separate multiple entries with delimiter character
        .RecipientDisplayName = [Ô][Ô]      [ô] Optional, separate multiple entries with delimiter character
        .CcRecipient = Copia                       [ô] Optional, separate multiple entries with delimiter character
        .CcDisplayName = [Ô][Ô]                  [ô] Optional, separate multiple entries with delimiter character
        .BccRecipient = [Ô][Ô]                      [ô] Optional, separate multiple entries with delimiter character
        .ReplyToAddress = Copia              [ô] Optional, used when different than [ô]From[ô] address
        .Subject = [Ô]OUVIDORIA MUNICIPAL - Envio do protocolo: [Ô] & protocol                 [ô] Optional
        .Message = Mensagem                        [ô] Optional
        .Attachment = Trim(Anexo)          [ô] Optional, separate multiple entries with delimiter character
        

        [ô] **************************************************************************
        [ô] Additional Optional properties, use as required by your application / environment
        [ô] **************************************************************************
        .AsHTML = bHtml                             [ô] Optional, default = FALSE, send mail as html or plain text
        .ContentBase = [Ô][Ô]                           [ô] Optional, default = Null String, reference base for embedded links
        .EncodeType = MyEncodeType                  [ô] Optional, default = MIME_ENCODE
        .Priority = etPriority                      [ô] Optional, default = PRIORITY_NORMAL
        .Receipt = bReceipt                         [ô] Optional, default = FALSE
        .UseAuthentication = bAuthLogin             [ô] Optional, default = FALSE
        .UsePopAuthentication = bPopLogin           [ô] Optional, default = FALSE
        .username = Usuário                    [ô] Optional, default = Null String
        .password = [Ô][Ô]                    [ô] Optional, default = Null String, value is NOT saved
        .POP3Host = POP
        .MaxRecipients = 100                        [ô] Optional, default = 100, recipient count before error is raised
        
        [ô] **************************************************************************
        [ô] Advanced Properties, change only if you have a good reason to do so.
        [ô] **************************************************************************
        [ô] .ConnectTimeout = 10                      [ô] Optional, default = 10
        [ô] .ConnectRetry = 5                         [ô] Optional, default = 5
        [ô] .MessageTimeout = 60                      [ô] Optional, default = 60
        [ô] .PersistentSettings = True                [ô] Optional, default = TRUE
        [ô] .SMTPPort = 25                            [ô] Optional, default = 25

        [ô] **************************************************************************
        [ô] OK, all of the properties are set, send the email...
        [ô] **************************************************************************
        [ô] .Connect                                  [ô] Optional, use when sending bulk mail
        .Send                                       [ô] Required
        [ô] .Disconnect                               [ô] Optional, use when sending bulk mail
        HOST = .SMTPHost                  [ô] Optional, re-populate the Host in case
                                                    [ô] MX look up was used to find a host    End With
    End With
    [ô]Screen.MousePointer = vbDefault
   [ô]cmdSend.Enabled = True


End Sub