none
Enviar emails CCO desde Access RRS feed

  • Pregunta

  • Estoy implementando el envío automático de emails desde Access.

    Por el momento he conseguido esto:

    Private Sub NOMCTROL_Click()


    Dim rst As dao.Recordset
    Dim NOMCTROLAs String

    Set rst = CurrentDb.OpenRecordset("Select email from EMAILING")


    While Not rst.EOF
    NOMCTROL= NOMCTROL& rst!email & ";"
    rst.MoveNext
    Wend

    'Esto es por si quieres quitar el ; que quedara al final
    If Nz(NOMCTROL, "") <> "" Then
    NOMCTROL= Left(NOMCTROL, Len(NOMCTROL) - 1)
    End If

    DoCmd.SendObject , , , , NOMCTROL

    End Sub

    ¿Alguien me puede indicar qué me falta para que los emails se sitúen en el campo CCO?

    viernes, 23 de noviembre de 2012 16:06

Respuestas

  • Hola!

    según la ayuda (esa gran desconocida) de SendObject, es el parámetro Bcc

    DoCmd.SendObject Bcc:=rst!email


    Saludos a todos desde Huelva
    http://www.mvp-access.es/emilio/

    • Propuesto como respuesta José Mª Fueyo martes, 4 de diciembre de 2012 10:51
    • Marcado como respuesta Uriel Almendra viernes, 15 de marzo de 2013 15:25
    viernes, 23 de noviembre de 2012 16:45