Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Send mails with access 2000

Status
Not open for further replies.

davfury

Programmer
Jun 11, 2001
3
FR
Hi !!!

I have many questions (5) !!!

1- How can I detect if the user have Microsoft OUtlook, Outlook Express ore others in Access 2000 ?

2- How can I then send automaticaly a mail with this mailer ? (eventually, if the user use a free provider to send his mails, like yahoo or others, can I create a link to the web page and create automatically the mail, with attachment ?)


I use this code :

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

Set objOutlook = CreateObject("Outlook.Application")

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
Set objOutlookRecip = .Recipients.Add("toto@noos.fr")
objOutlookRecip.type = olTo

.Subject = "test"
.Body = "Message lancé d'Access - Veuillez trouvez en pièce jointe le rappel de vos creances." & vbCrLf & vbCrLf
.Importance = olImportanceHigh 'Priorité haute

If Not IsMissing(AttachmentPath) Then

End If

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

End With

Set objOutlookMsg = Nothing
Set objOutlook = Nothing



but it works only with Microsoft Outlook.


3- How can I join the result of a report to this mail ?

4- How can I now the issue of this sending ?

5- How can I save the references of my database so that it can works on any computer without adding manually the missing references ?

Thanks for your answers (and excuse me for my poor english, i'm french...)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top