Access - REPORTES POR CORREO

   
Vista:

REPORTES POR CORREO

Publicado por UTE (69 intervenciones) el 23/10/2008 01:29:28
ESTIMADOS

TENGO UN REPORTE QUE ME SACA EN CADA HOJA UN GRUPO DE ARTICULOS Y EL STOCK , EN LA HOJA SIGUIENTE OTRO Y ASI SUCESIVAMENTE HASTA EL FINAL

YO QUIERE VER UNA DE ESTAS DOS OPCIONES SI SE PUEDE HACER

1) MANDAR CADA GRUPO EN UN EMAIL A UNA PERSONA DISTINTA O SEA ANEXAR UN TXT O PDF DEL GRUPO AL CORREO

2) QUE ME CREE TANTOS TXT O PDF Y YO MANUALMENTE CREO EL CORREO

ESPERO VUESTRA AYUDA

GRACIAS

UTE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:REPORTES POR CORREO

Publicado por Alonso (1 intervención) el 13/01/2009 22:52:44
Esta es una funcion que encontre navegando a mi me funciona correctamente, pues yo tenia tu problem. espero que te sirva.

Sub send_email()
' Send Access e-mail and output the result.

Dim server
Dim subj
Dim body
Dim command

' Define all email parameters.

server = " -SMTP smtp.sender.com -PORT 25"
subj = "email using Access VBA"

body = """This is <I>HTML / MIME</I> e-mail message "
body = body & "sent from MS ACCESS VB script<BR>"
body = body & "using <B>Febooti Command line email</B>"""

command = "febootimail.exe -HTML -FROM access-script@sender.com "
command = command & "-TO john@recipient.com "
command = command & "-SUBJ " & subj & " -BODY " & body & server

' We are passing one long line to Scripting object.
' If you need to add aditional parameters, do it before.

Dim wsShell, proc
Set wsShell = CreateObject("wscript.shell")
Set proc = wsShell.Exec(command)

Dim s : s = ""
Do While proc.Status = 0
' Yields execution so that the operating system can process other events
DoEvents
Loop

' Use proc.ExitCode to check for returned %errorlevel%

s = s & "StdOut=" & proc.StdOut.ReadAll()
s = s & Chr(13) & Chr(10) & "ExitCode=" & proc.ExitCode
MsgBox (s)

Set wsShell = Nothing
Set proc = Nothing

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar