E-mail report as excel to people on report

[Tempy]

Hi All, i am succesfully e-mailing a report as an excel attachment with
a macro from a form that reflects people that are behind with there work
but i have to manually type in thier e-mail addressess, however i would
like to automate this so that the responsible people can automatically
be detected and the e-mail with attachment must be sent to them.

I hope i have made this clear enough.

I am not a programmer, but a dabbler, so an explanation with the code
would be appreciated.

Thanks in Advance

Tempy

*** Sent via Developersdex http://www.developersdex.com ***

[Br]

Tempy <an*******@devdex.com> wrote:

Hi All, i am succesfully e-mailing a report as an excel attachment
with a macro from a form that reflects people that are behind with
there work but i have to manually type in thier e-mail addressess,
however i would like to automate this so that the responsible people
can automatically be detected and the e-mail with attachment must be
sent to them.

I hope i have made this clear enough.

I am not a programmer, but a dabbler, so an explanation with the code
would be appreciated.

Thanks in Advance

Tempy

You used the word needed "automated" :) You need to use automation to
create a new Outlook email (not sure how to do it with other mail
clients).

Do a search for "Outlook automation" ?
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[billmiami2]

Here's an example you can use. Note that I added MS Outlook to the
project references, but you can probably modify the code to use late
binding to avoid this. Note also that recent versions of MS Outlook
contain tremendous amounts of security that will cause prompts to
appear while the code is running.

Bill E.
Hollywood, FL

Function CreateEmail(ByVal objOutlook As Outlook.Application, ByVal
strRecipient As String, ByVal strSubject As String, ByVal strBody As
String, Optional strAttachment As String)
On Error GoTo Trapper
Dim objMailItem As Outlook.MailItem
Dim objRecipient As Outlook.Recipient

'Set the folder
Dim objFolder As Object
Set objFolder =
objOutlook.GetNamespace("MAPI").GetDefaultFolder(o lFolderOutbox)

'Create a new e-mail message
Set objMailItem = objOutlook.CreateItem(olMailItem)
With objMailItem
Set objRecipient = .Recipients.Add(strRecipient)
objRecipient.Type = olTo
.Subject = strSubject
.HTMLBody = strBody 'Use .Body if you are creating a text
message only
If strAttachment <> "" Then
.Attachments.Add strAttachment
End If
.Save
objMailItem.Move objFolder
End With

'Remove object references
Set objRecipient = Nothing
Set objMailItem = Nothing
Exit Function
Trapper:
MsgBox Err.Description
Exit Function

End Function

Sub Test
Dim strReport, strSubject as String

'Create the outlook instance
Dim objOL As Outlook.Application
Set objOL = CreateObject("outlook.application")

'Loop through the recordset and create a receipt for each employee
Dim objRS As ADODB.Recordset
Set objRS= 'Create your recordset here

With objRS
Do Until .EOF
strReport = 'Add your content here. It can be in HTML
if you like.
strSubject= 'Add your message subject here

'Create an e-mail message
strTo = .Fields("Firstname") & " " &
..Fields("LastName") & "<" & .Fields("Email") & ">"
CreateEmail objOL, strTo, strSubject, strReport
.MoveNext
Loop
End With

Set objRS = Nothing
Set objOL = Nothing

End Sub