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]Enviar email para todos cadastrados em uma tabela Com critério

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério Empty [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério

    Mensagem  Gilberto Rocha 9/6/2010, 19:55

    Olá, amigos, seguinte, alguem sabe como enviar emails para todos em uma tabela conforme o esquema abaixo?

    Tenho o Campo Nome_Cliente, email_Cliente, e Tipo_cliente

    em um form com uma combo seleciono o tipo de cliente e queria enviar para todos os clientes conforme o tipo selecionado.

    a forma que uso para emails individuais é a do JPaulo

    Option Compare Database

    Public gOLApp As Object
    Public gOLNameSpace As Object
    ' JPaulo ®️ 2008
    Public Function InitializeOutlook() As Boolean
    On Error GoTo Init_err
    Set gOLApp = CreateObject("Outlook.application")
    Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
    init_Bye:
    InitializeOutlook = True
    Exit Function

    Init_err:
    InitializeOutlook = False

    End Function

    -----------------------------------------------------

    Private Sub btEnviaEmail_Click()
    ' JPaulo
    ' Alterado por Gilberto ®️ 2009
    'Envia email no login pelo Outlook
    On Error Resume Next

    If VerificaInternet = 1 Then



    If IsNull(Me.cxNome) Or Me.cxNome.Value = "" Or IsNull(Me.cxAssunto) Or Me.cxAssunto.Value = "" _
    Or IsNull(Me.cxEmailUsuario) Or Me.cxEmailUsuario.Value = "" _
    Or IsNull(Me.cxTel) Or Me.cxTel.Value = "" _
    Or IsNull(Me.cxCorpo) Or Me.cxCorpo = "" Then
    DoCmd.CancelEvent
    'Cancel = True
    MsgBox "Faltam dados para o envio do email" & Chr(13) & "Preencha corretamente o formulário." & Chr(13) & Chr(13) & "Envio cancelado...", vbInformation, "Alerta"
    cxEmpresa.SetFocus
    Exit Sub
    Else

    DoCmd.SetWarnings False

    Me.rtAguarde.Visible = True
    'DoCmd.OpenForm "Aguarde_da_Requisição"

    'monta o mail e envia
    On Error Resume Next
    Dim Caminho(4) As String, pula As String
    Call InitializeOutlook
    Set objNewMail = gOLApp.CreateItem(olMailItem)
    With objNewMail
    .To = " " 'Aqui que gostaria que enviasse para os email cadastrados em minha Tabela_Clientes com o critério
    'Conforme o selecionado na combo
    body.Font = 20
    .body = "Empresa: " & Me.cxEmpresa _
    & vbCrLf & "Nome: " & Me.cxNome _
    & vbCrLf & "" _
    & vbCrLf & "Telefone: " & Me.cxTel _
    & vbCrLf & "Email: " & [cxEmailUsuario] _
    & vbCrLf & "" _
    & vbCrLf & [cxCorpo] _
    & vbCrLf & "" _
    & vbCrLf & "Este email foi enviado ao suporte técnico." _
    & vbCrLf & ""
    .Subject = [cxAssunto] & " - " & Date
    .Send
    End With
    DoCmd.SetWarnings True
    DoCmd.Close acForm, "Aguarde_da_Requisição"
    MsgBox "Mensagem enviada com sucesso!!!", vbInformation, "Aviso de Envio"

    Me.rtAguarde.Visible = False

    Me.cxEmpresa = ""
    Me.cxAssunto = ""
    Me.cxEmailUsuario = ""
    Me.cxNome = ""
    Me.cxCorpo = ""
    Me.cxTel = ""
    End If
    Else
    DoCmd.OpenForm "ConexaoOffline"
    DoCmd.CancelEvent
    End If ' encerra If da conexão


    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério Empty Re: [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério

    Mensagem  JPaulo 10/6/2010, 09:14

    Veja na sala de Repositório Códigos VBA, o código:

    Email para Varios Destinatários


    .................................................................................
    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]Enviar email para todos cadastrados em uma tabela Com critério Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério Folder_announce_new Instruções SQL como utilizar...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério Empty Re: [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério

    Mensagem  Gilberto Rocha 11/6/2010, 21:32

    Opa, baixei vou testar aqui, valeus

    Conteúdo patrocinado


    [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério Empty Re: [Resolvido]Enviar email para todos cadastrados em uma tabela Com critério

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:43