Send Email via Outlook Express using MS Access

C

Cowji

Hi Masters of Access and all Mircrosoft programs,

I am currently working on database at the moment. Most of it fine, but I
have a question, I want to send 5/6 people their jobs for the next day via
email (each has a different email ). The people in the office only like using
Outlook Express, as it seems Outlook (Standard) takes to long to send emails.

Also, if possible, I don't want to send attachments, just a written bespoke
message.

Is this possible?

Thanks in Advance
Cowji
 
C

Cowji

thanks, another question, I think I suppose to use the following code to help
me from
http://groups-beta.google.com/group...sg/544c38cb48ffbcdd?hl=en&lr=&ie=UTF-8&rnum=4

Option Explicit

Type MAPIRecip
Reserved As Long
RecipClass As Long
Name As String
Address As String
EIDSize As Long
EntryID As String
End Type


Type MAPIFileTag
Reserved As Long
TagLength As Long
Tag() As Byte
EncodingLength As Long
Encoding() As Byte
End Type

'Type MAPIFile ' corrected?
' Reserved As Long
' Flags As Long
' Position As Long
' PathName As String
' FileName As String
' FileType As Long
'End Type

Type MAPIFile
Reserved As Long
Flags As Long
Position As Long
PathName As String
FileName As String
FileType As MAPIFileTag
End Type


Type MAPIMessage
Reserved As Long
Subject As String
NoteText As String
MessageType As String
DateReceived As String
ConversationID As String
Originator As Long
Flags As Long
RecipCount As Long
Recipients As Long
Files As Long
FileCount As Long
End Type


Declare Function MAPISendMail _
Lib "c:\program files\outlook express\msoe.dll" ( _
ByVal Session As Long, _
ByVal UIParam As Long, _
message As MAPIMessage, _
ByVal Flags As Long, _
ByVal Reserved As Long) As Long


Sub SendMailWithOE(ByVal strSubject As String, ByVal strMessage As String,
ByRef aRecips As Variant)
Dim recips() As MAPIRecip
Dim message As MAPIMessage
Dim z As Long
ReDim recips(LBound(aRecips) To UBound(aRecips))
For z = LBound(aRecips) To UBound(aRecips)
With recips(z)
.RecipClass = 1
If InStr(aRecips(z), "@") <> 0 Then
.Address = StrConv(aRecips(z), vbFromUnicode)
Else
.Name = StrConv(aRecips(z), vbFromUnicode)
End If
End With
Next z
With message
.NoteText = strMessage
.Subject = strSubject
.RecipCount = UBound(recips) - LBound(aRecips) + 1
.Recipients = VarPtr(recips(LBound(recips)))
End With
MAPISendMail 0, 0, message, 0, 0
End Sub


Sub TestSendMailwithOE()
Dim aRecips(0 To 0) As String
aRecips(0) = "smtp:p[email protected]"
SendMailWithOE "Send Mail Through OE", "it works", aRecips
End Sub


However, I am not sure how am I suppose to use this code and where to put it!

Please help.

Thanks in Advance
Cowji
 
Top