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]Email para varios via consulta

    avatar
    brunobpr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 11/05/2012

    [Resolvido]Email para varios via consulta Empty [Resolvido]Email para varios via consulta

    Mensagem  brunobpr 12/7/2017, 15:06

    Bom dia Amigos

    Fiz o codigo abaixo para o envio de email via formulario e abaixo tem o codigo, porem nao esta migrando para o TO: a relacao dos emails, poderiam me auxiliar

    Private Sub Comando268_Click()
    Dim strPara As String
    Dim objOutlook As Object
    Dim objMailItem As Object
    Dim rsteste As DAO.Recordset
    Dim StrSql As String

    'Create a Microsoft Outlook object.
    Const olMailItem As Integer = 0
    Set objOutlook = CreateObject("Outlook.Application")
    'Create and open a new contact form for input.
    Set objMailItem = objOutlook.CreateItem(olMailItem)

    StrSql = "SELECT * FROM TbEquipes"
    Set rsteste = CurrentDb.OpenRecordset(StrSql)
    RecordSource = StrSql

    strPara = rsteste ' aqui esta o erro e nao consigo seguir

    objMailItem.To = strPara

    objMailItem.Display

    'Quit Microsoft Outlook.
    Set objMailItem = Nothing
    Set objOutlook = Nothing

    Exit Sub
    StartError:
    MsgBox "Error: " & Err & " " & Error

    agrade a ajuda
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Email para varios via consulta Empty Re: [Resolvido]Email para varios via consulta

    Mensagem  JPaulo 12/7/2017, 17:36



    .................................................................................
    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]Email para varios via consulta Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Email para varios via consulta Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Email para varios via consulta Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 22/11/2024, 09:22