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...)
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...)