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

    [Resolvido]Email para varios via consulta

    Compartilhe

    brunobpr
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Email para varios via consulta

    Mensagem  brunobpr em Qua 12 Jul 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Email para varios via consulta

    Mensagem  JPaulo em Qua 12 Jul 2017, 17:36

    Veja isto;

    [Você precisa estar registrado e conectado para ver este link.]


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 18 Nov 2017, 08:19