Sending Email Attachment, wrong Outlook Version

[J-P-W]

I have some code, from this group (many thanks) that sends an
attachment to an email.

The following:

Dim objNewMail As Outlook.MailItem
Dim golApp As Outlook.Application
Dim initializeOutlook As Boolean

requires Microsoft Outlook xx Object Library in the references.

My problem is that I have Oulook 2003 (xx = 11), the PC's that I want
to run it on has Outlook 2000 or 97 (!), and more of a problem only
Access 2000 runtime.

When I load up the database on their PC because it can't find the
reference it's looking for (Outlook 11) I get a runtime error, and
Access closes. I can't change the reference to their version of
Outlook as they, as mentioned, only have the runtime.

So for now I've removed the code / reference.

My question is "How can I get around this?" I thought I was being very
clever, now I'm stumped. I need to have code that will email a file,
that is generated within Access, as an attachment.

I'd really like some generic code that would use whatever email program
they have, I guess.

Any ideas?

Thank you,

Jon

[RoyVidar]

J-P-W wrote in message
<11**********************@o13g2000cwo.googlegroups .com> :

I have some code, from this group (many thanks) that sends an
attachment to an email.

The following:

Dim objNewMail As Outlook.MailItem
Dim golApp As Outlook.Application
Dim initializeOutlook As Boolean

requires Microsoft Outlook xx Object Library in the references.

My problem is that I have Oulook 2003 (xx = 11), the PC's that I want
to run it on has Outlook 2000 or 97 (!), and more of a problem only
Access 2000 runtime.

When I load up the database on their PC because it can't find the
reference it's looking for (Outlook 11) I get a runtime error, and
Access closes. I can't change the reference to their version of
Outlook as they, as mentioned, only have the runtime.

So for now I've removed the code / reference.

My question is "How can I get around this?" I thought I was being very
clever, now I'm stumped. I need to have code that will email a file,
that is generated within Access, as an attachment.

I'd really like some generic code that would use whatever email program
they have, I guess.

Any ideas?

Thank you,

Jon

Try late binding.

It means you remove the references, and declare like this

Dim objNewMail As object 'Outlook.MailItem
Dim golApp As object 'Outlook.Application

In stead of using the New keyword when instantiating, you use

set golapp = createobject("outlook.application")

- or do a combination/test for existing open app through the getobject
function

Note - Outlooks specific constants must be replaced. (they are often
prefixed with "ol") For instance a line like this

set objNewMail = golApp.createitem(olMailItem)

should be replaced with something like

set objNewMail = golApp.createitem(0)

--
Roy-Vidar

[J-P-W]

Great, thanks I'll give that a go!

Regards, Jon

[Lyle Fairfield]

Outlook is a gnarly program; MS recommends the use of CDO to send
e-mail

This sample code will send a report as html. It should run in
Northwinds.
If you take a little time and study it, you can probably modify it to
meet your needs.
It has no magic to guess your smtp server, or other parameter.
If you write it without specifying many of the properties it will just
fall back on Outlook Express default account settings, if these exist.

It should work with Windows 2000 or Windows XP.

Option Explicit

Public Sub SendReportAsHTML( _
ByVal ReportName As String, _
ByVal SMTPServer As String, _
ByVal SendUserName As String, _
ByVal SendPassword As String, _
ByVal SendEmailAddress As String, _
ByVal Subject As String, _
ByVal Recipients As String, _
Optional ByVal NumberofPagesAllowed As Long = 10)

Dim Buffer As String
Dim Position As Long
Dim FileNumber As Integer
Dim HTML As String
Dim HTMLFullPath As String
Dim iCfg As Object
Dim iMsg As Object
Dim Skelton As String
Dim TempDirectory As String
Dim Truncate As Long

Set iCfg = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")

TempDirectory = Environ$("temp")
If Len(TempDirectory) = 0 Then TempDirectory = CurDir$()
TempDirectory = TempDirectory & "\"
Skelton = Format(Now(), "mmmddyyyyhhnnss")
HTMLFullPath = TempDirectory & Skelton & ".html"

DoCmd.OutputTo acOutputReport, ReportName, acFormatHTML, HTMLFullPath

HTMLFullPath = Dir$(TempDirectory & Skelton & "*.html")
While Len(HTMLFullPath) <> 0 And NumberofPagesAllowed <> 0
HTMLFullPath = TempDirectory & HTMLFullPath
FileNumber = FreeFile()
Open HTMLFullPath For Binary As #FileNumber
Buffer = String(LOF(FileNumber), vbNullChar)
Get #FileNumber, , Buffer
Close #FileNumber
Position = InStr(Buffer, "</TABLE>")
While Position <> 0
Truncate = Position
Position = InStr(Truncate + 1, Buffer, "</TABLE>")
Wend
HTML = HTML & Left(Buffer, Truncate + 7)
HTML = HTML & "<hr>"
Kill HTMLFullPath
HTMLFullPath = Dir$()
NumberofPagesAllowed = NumberofPagesAllowed - 1
Wend

If Len(HTMLFullPath) <> 0 And NumberofPagesAllowed = 0 Then _
HTML = HTML & "<br><b>Partial Report: Additional Pages not Shown"

With iCfg.Fields
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
SMTPServer
..Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
..Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
SendUserName
..Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
SendPassword
..Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")
= SendEmailAddress
..Update
End With
With iMsg
..Configuration = iCfg
..Subject = Subject
..To = Recipients
..HTMLBody = HTML
..Send
End With

SendReportAsHTMLExit:
Close
Set iMsg = Nothing
Set iCfg = Nothing
Exit Sub

SendReportAsHTMLErr:
With Err
MsgBox .Description, vbCritical, "Error " & .Number
End With
Resume SendReportAsHTMLExit

End Sub

Private Sub TestSendReportAsHTML()
SendReportAsHTML "Products By Category", "mail.yoursmtpserver.com",
"youremail.com", "thepassword", "thesender", "Testing
SendReportAsHTML", "th*********@hisherdomain.com"
End Sub

[J-P-W]

Hi Lyle,
although this may be very useful for another project, I guess not in
this case as the clients send all mail through an exchange server, and
don't even know the relevant passwords, that for the IT bods to know!!!
Regards
Jon

[J-P-W]

Lyle sorry, I will read the reply better next time... now I note "If
you write it without specifying many of the properties it will just
fall back on Outlook Express default account settings, if these exist."
Many thanks
Jon :{