Sending email from Access 2000 using Outlook express 6

[Irshad Alam]

Dear Sir,

Reference to the earlier posted code, I used the below code which produces
error at the time of typing the code in red color and upon pressing enter it
pop-up dailog - ''Compile Error - Expected: = ''

The steps of using the code is as follows :

STEP1
I open a new module and posted the below code with name Module1:



Option Compare Database

Function SendEmail(strTo As String, strSubject As String, strBody As String,
bEdit As Boolean, _
Optional strBCC As Variant, Optional AttachmentPath As
Variant)
'Send Email using late binding to avoid reference issues
Dim objOutlook As Object
Dim objOutlookMsg As Object
Dim objOutlookRecip As Object
Dim objOutlookAttach As Object
Dim i As Integer
Const olMailItem = 0

On Error GoTo ErrorMsgs

Set objOutlook = CreateObject("Outlook.Application")

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(strTo)
objOutlookRecip.Type = 1

If Not IsMissing(strBCC) Then
Set objOutlookRecip = .Recipients.Add(strBCC)
objOutlookRecip.Type = 3
End If

.Subject = strSubject
.Body = strBody
.Importance = 2 'Importance Level 0=Low,1=Normal,2=High

' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
If IsArray(AttachmentPath) Then
For i = LBound(AttachmentPath) To UBound(AttachmentPath) - 1
If AttachmentPath(i) <> "" And AttachmentPath(i) <> "False" Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath(i))
End If
Next i
Else
If AttachmentPath <> "" And AttachmentPath(i) <> "False" Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
End If
End If

For Each objOutlookRecip In .Recipients
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next

If bEdit Then 'Choose btw transparent/silent send and preview send
.Display
Else
.Send
End If
End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing
Set objOutlookRecip = Nothing
Set objOutlookAttach = Nothing

ErrorMsgs:
If Err.Number = "287" Then
MsgBox "You clicked No to the Outlook security warning. " & _
"Rerun the procedure and click Yes to access e-mail " & _
"addresses to send your message. For more information, " & _
"see the document at http://www.microsoft.com/office" & _
"/previous/outlook/downloads/security.asp."
Exit Function
ElseIf Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Exit Function
End If
End Function


STEP2
I called the code from the label click event, below it the code

Private Sub Label4_Click()
SendEmail ("(e-mail address removed);[email protected];[email protected]",
"Claim status", "Attached please find the claim status report", True,
"(e-mail address removed);[email protected]", "C:\Repo66.pdf")
End Sub


Please advice, where is the mistake and how to correct.

Note : I am using Windows XP - Outlook Express 6, Access 2000

Regards

Irshad

 

[Rick Brandt]

Dear Sir,

Reference to the earlier posted code, I used the below code which produces
error at the time of typing the code in red color and upon pressing enter
it pop-up dailog - ''Compile Error - Expected: = ''

The steps of using the code is as follows :

STEP1
I open a new module and posted the below code with name Module1:



Option Compare Database

Function SendEmail(strTo As String, strSubject As String, strBody As
String, bEdit As Boolean, _
Optional strBCC As Variant, Optional AttachmentPath As
Variant)
'Send Email using late binding to avoid reference issues
Dim objOutlook As Object

[snip rest of code]

Outlook Express is not Outlook. Your code is for automating the Outlook
program that is part of the Microsoft Office suite of programs. You cannot
automate Outlook Express.

 

[Irshad Alam]

Thank you very much for your reply.

But any examples help you can provide, so that I can send email with
attachment from Form via Outlook Express 6.

Regards

Irshad

Dear Sir,

Reference to the earlier posted code, I used the below code which produces
error at the time of typing the code in red color and upon pressing enter
it pop-up dailog - ''Compile Error - Expected: = ''

The steps of using the code is as follows :

STEP1
I open a new module and posted the below code with name Module1:



Option Compare Database

Function SendEmail(strTo As String, strSubject As String, strBody As
String, bEdit As Boolean, _
Optional strBCC As Variant, Optional AttachmentPath As
Variant)
'Send Email using late binding to avoid reference issues
Dim objOutlook As Object

[snip rest of code]

Outlook Express is not Outlook. Your code is for automating the Outlook
program that is part of the Microsoft Office suite of programs. You cannot
automate Outlook Express.


.