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

    [Resolvido]Validação de envio de cópia carbono do e-mail cc

    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 70
    Registrado : 07/11/2011

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Empty [Resolvido]Validação de envio de cópia carbono do e-mail cc

    Mensagem  Zeusangel Ter 18 Jan - 19:23

    Boa tarde colegas, minha consulta é sobre envio de correio CC (cópia carbono) no correio, tenho uma função onde envio

    Código:
    Private Function EnvioEmail() As Boolean
    On Error GoTo ManipulaError
    Dim oApp As Outlook.Application
    Dim oMail As Outlook.MailItem
       
       If Me.emailUsuario <> "" Then
           Set oApp = CreateObject("Outlook.Application")
           Set oMail = oApp.CreateItem(olMailItem)
           With oMail
               .To = Me.emailUsuario
               .CC = Me.email_super
               .Subject = Nz(Me.Asunto, "")
               .Body = Nz(Me.Body, "")
               .Importance = olImportanceHigh
               .Send
           End With
           
           Set oApp = Nothing
           EnvioEmail = True
       Else
           MsgBox "ESPECIFIQUE UNA DIRECCION DE CORREO ELECTRONICO", vbExclamation, "Aviso"
           Me.emailUsuario.SetFocus
       End If
       
       
    Salir:
       Exit Function
    ManipulaError:
       MsgBox Err.Number & " : " & Err.Description
    End Function

    então .cc eu tenho ele em uma caixa de texto (campo de texto) onde existe outra função que valida o campo, o email digitado. mas qual validação de e-mail você poderia usar já que nesse campo (.cc) tem dois ou mais e-mails, não apenas um e-mail (cc: xxxx@gmail.lcom; xxxg@hotmail.com; yyxxy@yahoo.com).
    no código digite:
               .To = Me.emailUsuario
               .CC = Me.email_super
               .CC = Me.email_super2
               .Subject = Nz(Me.Asunto, "")
               .Body = Nz(Me.Body, "")
               .Importance = olImportanceHigh
               .Send

    mas não funcionou, só manda um email .cc digitado, o segundo .cc: digitado não manda mais (.CC = Me.email_super2). Como seria a sintaxe nesse caso ou qual função você usaria para validar dois ou mais emails em um campo.- Muito obrigado desde já pela atenção. Bom Dia. sunny cheers Sad Sad Rolling Eyes Rolling Eyes
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Empty Re: [Resolvido]Validação de envio de cópia carbono do e-mail cc

    Mensagem  JPaulo Qua 19 Jan - 12:02

    Olá

    Se você tiver os endereços cadastrados numa tabela, pode usar uma combobox para os escolher e concatenar para esse campo CC;

    Exemplo:

    Código:
    Private Sub SuaCombobox_AfterUpdate()
        Me.CC.Value= Me.CC.Value & Me.SuaCombobox.Column(0) & ";" & ""
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new Instruções SQL como utilizar...
    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 70
    Registrado : 07/11/2011

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Empty -2147467259: O Outlook não reconhece nenhum dos nomes.

    Mensagem  Zeusangel Qua 19 Jan - 21:43

    Boa noite colegas, obrigado pela atenção e pela gentileza de sua resposta imediata,
    deixe o código assim:
    If Me.emailUsuario <> "" Then
           Set oApp = CreateObject("Outlook.Application")
           Set oMail = oApp.CreateItem(olMailItem)
           With oMail
               .To = Me.emailUsuario
              Arrow  .CC = Me.email_super & Me.email_super2
               .Subject = Nz(Me.Asunto, "")
               .Body = Nz(Me.Body, "")
               .Importance = olImportanceHigh
               .Send
       End With
           
           Set oApp = Nothing
           EnvioEmail = True
       Else
           MsgBox "ESPECIFIQUE UNA DIRECCION DE CORREO ELECTRONICO", vbExclamation, "Aviso"
           Me.emailUsuario.SetFocus
       End If

    (.CC = Me.email_super & Me.email_super2 ), mas recebo este erro:
    -2147467259: O Outlook não reconhece nenhum dos nomes.

    Agradeço antecipadamente por sua ajuda. cheers
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Empty Re: [Resolvido]Validação de envio de cópia carbono do e-mail cc

    Mensagem  JPaulo Qui 20 Jan - 10:01

    Feito em cima do joelho, para lhe mostrar o caminho das pedras;
    Anexos
    [Resolvido]Validação de envio de cópia carbono do e-mail cc AttachmentOutlookSend.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 9 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new Instruções SQL como utilizar...
    avatar
    Zeusangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Australia
    Mensagens : 70
    Registrado : 07/11/2011

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Empty Muito bom

    Mensagem  Zeusangel Qui 20 Jan - 13:41

    Obrigado. Muito obrigado. O exemplo foi bom. cheers cheers cheers
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Empty Re: [Resolvido]Validação de envio de cópia carbono do e-mail cc

    Mensagem  JPaulo Qui 20 Jan - 14:38

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Validação de envio de cópia carbono do e-mail cc Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: Ter 7 Fev - 19:16