reports generating separate emails

[DOGMA-DOT]

Has anyone generated from a report individual pages to go to separate
email addresses. Automatically attaching different word docs to each email
and sending each one would be icing on the cake.

I currently use Thunderbird for emails

I currently prepare a report using changing criteria each month (i.e.,
different
scientists) publish it to MSWORD, then divide the big report into individual
files
which I then email individually.

Dot

 

[rico]

Hi,

I dont think there is a way to auto split a document, so i would recommend
creating multiple report, then exporting each one individually.

As for the email this is the best method, as doesn't require the use of any
email app. Just make sure your anti virus isn't blocking port 25. HTH Rico



Public Function sendCDOEmail(txtFrom As String, _
txtTo As String, _
txtSubject As String, _
txtBody As String, _
strAttachment As String)

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Dim objCDOConfig As Object
Dim objCDOMessage As Object
Dim objattachment As Object
Dim strSch As String


strSch = "http://schemas.microsoft.com/cdo/configuration/"

Set objCDOConfig = CreateObject("CDO.Configuration")

With objCDOConfig.Fields
.item(strSch & "sendusing") = cdoSendUsingPort
.item(strSch & "smtpserver") = "your outgoing email server here"
.item(strSch & "SMTPAuthenticate") = cdoBasic


.Update

End With



Set objCDOMessage = CreateObject("CDO.Message")

With objCDOMessage

Set .Configuration = objCDOConfig

.FROM = txtFrom
.Sender = txtFrom
.To = txtTo
.cc = SendCc
.Subject = txtSubject
.TextBody = txtBody

Set objattachment = objCDOMessage.AddAttachment(strAttachment) 'Attach
object given by strAttachment

.send 'Send
Email

End With

Set objCDOMessage = Nothing
Set objCDOConfig = Nothing

End Function

 

[Tony Toews [MVP]]

Has anyone generated from a report individual pages to go to separate
email addresses.

For a page on how to print a report for a single record and how to
generate reports to attach to emails see the Emailing reports as
attachments from Microsoft Access page at
http://www.granite.ab.ca/access/email/reportsasattachments.htm

Automatically attaching different word docs to each email
and sending each one would be icing on the cake.

You could automate Word to prepare a doc file customized for each user
and also attach that file to the email. Although you might want to
email out just a PDF file.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/