There is a free Snapshot Viewer downloadable from MS or it may also be
on the Office DVD/CD or in MSDN goodies. You can save each report as
a snapshot after previewing and attach it to an email to your rep.
You'd need to send the Snapshot Viewer to each of them one time and
help them get it set up. With judicious file association they should
then be able to read your Access reports as you see them. I've
started to look at the viewer several times but the process was always
short circuited by other implementation decisions.
There is a lot of related info on Tony Toews's site in his EMAIL FAQ
section. That's where I started and proceeded from there to the
Redemption site and it seemed like I was chasing my tail for a while.
Eventually it came together.
I found that a lot of the stuff didn't work as advertised because
microsoft has screwed around with Outlook putting in security breaks
that interrupt the smooth flow. At the point where I had the
functionality that I figured I'd have to live with, I could do
everything in my app except actually get the mail to go. When I
looked into the Outlook session there was an empty message sitting in
the Inbox. Hit send & Recieve and the whole queue went and the empty
message disappeared. That was good enough for what I needed I didn't
generalize my code so it's pretty well hard wired in scattered bits
and pieces.
I wouldn't think you'd be able to make use of looping unless you break
into the loop while stepping through a recordset firing out the
reports and associated emails.
Another approach might be to do a lot of the above but to print to PDF
documents. I use CutePDFWriter - absolutely free. By making that
your printer it will ask you to name each document just before you
create it.
You'd be surprised how much Access Email activity there is. Google on
the Access groups for "email" and it will blow you away.
=========================================================
I just hijacked the below from a related post today in this ng.
Arvin, thankx for the quick reply. But you went a little over my
head. Can
you put the advice in laymens terms? I can follow directions, but I
know
nothing about code. I haven't tried this yet as I don't want to
upsept
members with practice runs.
Let's say I have the message ready to send, and I have the list of
addresses...I should put all the addresses in the BCC field?
Where do I tell Outlook that it's ok?
What is Redemption?
Where do I use the code?
Buseruka
Arvin Meyer said:
This code was written before the security functionality in Outlook was
created. It used to go automatically, but now you'll need to tell Outlook
that it's OK, or use Redemption.It works by using the BCC field to send
email:Function Email(strTo As String, strSubject _
As String, Optional varMsg As Variant, Optional varAttachment As
Variant)
' ©Arvin Meyer 1999-2004
' Permission to use is granted if copyright notice is left intact.
' Permisssion is denied for use with unsolicited commercial email
'Set reference to Outlook
On Error GoTo Errhandler
Dim strBCC As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objOutl As Outlook.Application
'Dim objEml As Outlook.MailItem
Dim i As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("qryContacts", dbOpenSnapshot)
Set objOutl = CreateObject("Outlook.application")
'Set objEml = objOutl.createItem(olMailitem)
With rst
If .RecordCount > 0 Then
.MoveLast
.MoveFirst
End If
End With
For i = 1 To rst.RecordCount
If Len(rst!EmailAddress) > 0 Then
strTo = rst!EmailAddress
Dim objEml As Outlook.MailItem
Set objEml = objOutl.createItem(olMailitem)
With objEml
.BCC = strTo
.Subject = strSubject
If Not IsNull(varMsg) Then
.Body = varMsg
End If
' Uncomment for attachment
' If Not IsMissing(varAttachment) Then
' .Attachments.Add varAttachment
' End If
.Send
End With
End If
Set objEml = Nothing
rst.MoveNext
Next i
ExitHere:
Set objOutl = Nothing
'Set objEml = Nothing
Set rst = Nothing
Set db = Nothing
Exit Function
Errhandler:
MsgBox Err.Number & ": " & Err.Description
Resume ExitHere
End Function-- Arvin Meyer, MCP, MVPMicrosoft AccessFree Access
downloads:
http://www.datastrat.comhttp://www.mvps.org/access
school. I
need done
=======================================================
HTH
