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.MailIte m
Dim golApp As Outlook.Applica tion
Dim initializeOutlo ok 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************ **********@o13g 2000cwo.googleg roups.com> :

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

The following:

Dim objNewMail As Outlook.MailIte m
Dim golApp As Outlook.Applica tion
Dim initializeOutlo ok 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.MailIt em
Dim golApp As object 'Outlook.Applic ation

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

set golapp = createobject("o utlook.applicat ion")

- 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.createit em(olMailItem)

should be replaced with something like

set objNewMail = golApp.createit em(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 SendReportAsHTM L( _
ByVal ReportName As String, _
ByVal SMTPServer As String, _
ByVal SendUserName As String, _
ByVal SendPassword As String, _
ByVal SendEmailAddres s As String, _
ByVal Subject As String, _
ByVal Recipients As String, _
Optional ByVal NumberofPagesAl lowed 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("C DO.Configuratio n")
Set iMsg = CreateObject("C DO.Message")

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

DoCmd.OutputTo acOutputReport, ReportName, acFormatHTML, HTMLFullPath

HTMLFullPath = Dir$(TempDirect ory & Skelton & "*.html")
While Len(HTMLFullPat h) <> 0 And NumberofPagesAl lowed <> 0
HTMLFullPath = TempDirectory & HTMLFullPath
FileNumber = FreeFile()
Open HTMLFullPath For Binary As #FileNumber
Buffer = String(LOF(File Number), 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$()
NumberofPagesAl lowed = NumberofPagesAl lowed - 1
Wend

If Len(HTMLFullPat h) <> 0 And NumberofPagesAl lowed = 0 Then _
HTML = HTML & "<br><b>Par tial Report: Additional Pages not Shown"

With iCfg.Fields
..Item("http://schemas.microso ft.com/cdo/configuration/sendusing") = 2
..Item("http://schemas.microso ft.com/cdo/configuration/smtpserverport" )
= 25
..Item("http://schemas.microso ft.com/cdo/configuration/smtpserver") =
SMTPServer
..Item("http://schemas.microso ft.com/cdo/configuration/smtpauthenticat e")
= 1
..Item("http://schemas.microso ft.com/cdo/configuration/sendusername") =
SendUserName
..Item("http://schemas.microso ft.com/cdo/configuration/sendpassword") =
SendPassword
..Item("http://schemas.microso ft.com/cdo/configuration/sendemailaddres s")
= SendEmailAddres s
..Update
End With
With iMsg
..Configuration = iCfg
..Subject = Subject
..To = Recipients
..HTMLBody = HTML
..Send
End With

SendReportAsHTM LExit:
Close
Set iMsg = Nothing
Set iCfg = Nothing
Exit Sub

SendReportAsHTM LErr:
With Err
MsgBox .Description, vbCritical, "Error " & .Number
End With
Resume SendReportAsHTM LExit

End Sub

Private Sub TestSendReportA sHTML()
SendReportAsHTM L "Products By Category", "mail.yoursmtps erver.com",
"youremail.com" , "thepasswor d", "thesender" , "Testing
SendReportAsHTM L", "th*********@hi sherdomain.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 :{