Le site est pour VB mais la façon d'envoyer un mail via Lotus Notes est identique avec Access.
Guy
"Christian" a écrit dans le message de news:
Bonjour !
J'aimersais savoir comment envoyé un courriel par Lotus Notes via Access 2000.
Présentement, il demande toujours un profil "Outlook". Je ne désire pas utiliser "Outlook" mais "Lotus Notes".
Est-ce possible ?
Merci !
Raymond [mvp]
Bonjour.
tu trouveras une procédure pour lotus notes ou autre messagerie sur la page http://www.logicielappui.com/tips/ Envois de courriel API (2004/06/04) *Nouveau* Voici un utilitaire complet pour l'envois de courriel par Access, il fonctionne de façon autonome avec l'API Winsock, donc il n'est dépendant d'aucune messagerie, plus communément appeler « Silent mail », ont peut demander une confirmation de lecture, une priorité du message et aussi la gestion des fichiers attachés.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Christian" a écrit dans le message de news:
Bonjour !
J'aimersais savoir comment envoyé un courriel par Lotus Notes via Access 2000.
Présentement, il demande toujours un profil "Outlook". Je ne désire pas utiliser "Outlook" mais "Lotus Notes".
Est-ce possible ?
Merci !
Bonjour.
tu trouveras une procédure pour lotus notes ou autre messagerie sur la page
http://www.logicielappui.com/tips/
Envois de courriel API (2004/06/04) *Nouveau*
Voici un utilitaire complet pour l'envois de courriel par Access, il
fonctionne de façon autonome avec l'API Winsock, donc il n'est dépendant
d'aucune
messagerie, plus communément appeler « Silent mail », ont peut demander une
confirmation de lecture, une priorité du message et aussi la gestion des
fichiers attachés.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de
news: C343C5EB-0FAB-4C7B-83F5-81432FBC8D70@microsoft.com...
Bonjour !
J'aimersais savoir comment envoyé un courriel par Lotus Notes via Access
2000.
Présentement, il demande toujours un profil "Outlook". Je ne désire pas
utiliser "Outlook" mais "Lotus Notes".
tu trouveras une procédure pour lotus notes ou autre messagerie sur la page http://www.logicielappui.com/tips/ Envois de courriel API (2004/06/04) *Nouveau* Voici un utilitaire complet pour l'envois de courriel par Access, il fonctionne de façon autonome avec l'API Winsock, donc il n'est dépendant d'aucune messagerie, plus communément appeler « Silent mail », ont peut demander une confirmation de lecture, une priorité du message et aussi la gestion des fichiers attachés.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Christian" a écrit dans le message de news:
Bonjour !
J'aimersais savoir comment envoyé un courriel par Lotus Notes via Access 2000.
Présentement, il demande toujours un profil "Outlook". Je ne désire pas utiliser "Outlook" mais "Lotus Notes".
Est-ce possible ?
Merci !
Ma Dalton
Salut, utilises quelque chose du genre... Bonne chance
PS. cela est devrait fonctionner si tu coches la référence DLL de Lotus-Notes dans ton projet
Public Function SendFichierViaNotes(PalierClient As String, FichierAttache As String) As Object ' permet l'envoi d'un courriel préadressé avec fichier joint ' ex. Call SendFichierViaNotes("Regional", "c:file.txt", , "body text", True)
On Error Resume Next Dim session, Maildb, MailDoc, AttachME, EmbedObj As Object Dim UserName As String Dim MailDbName As String
Set session = CreateObject("Notes.NotesSession") UserName = session.UserName MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Open the mail database in notes Set Maildb = session.GETDATABASE("", MailDbName) 'Set Maildb = session.GETDATABASE("ServeurName", "mailMaBoite.nsf")
If Maildb.ISOPEN = False Then Maildb.OPENMAIL
Set MailDoc = Maildb.CREATEDOCUMENT()
MailDoc.Form = "memo" MailDoc.body = "Veuillez SVP détacher le fichier ci-joint dans le répertoire EXPORT " & _ "de l'application MyApps et le récupérer via l'utilitaire " & _ "de réception des données du module d'intégration." If PalierClient = "Local" Then MailDoc.sendto = AdrPilteRegion() MailDoc.Subject = "Système MyApps: transfert des données locales vers l'instance régionale" Else MailDoc.sendto = AdrPilteNational() MailDoc.Subject = "Système MyApps: transfert des données régionales vers l'instance nationale" End If 'la ligne suivante indique si le message doit etre conserve dans les document envoyé (brouillon) MailDoc.SAVEMESSAGEONSEND = True
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", FichierAttache, "Attachment")
MailDoc.PostedDate = Now() On Error GoTo ErreurNotes MailDoc.SEND True On Error Resume Next GoTo fin ErreurNotes: Call MessageErreurNotes fin: End Function
"Christian" a écrit dans le message de news:
Bonjour !
J'aimersais savoir comment envoyé un courriel par Lotus Notes via Access 2000.
Présentement, il demande toujours un profil "Outlook". Je ne désire pas utiliser "Outlook" mais "Lotus Notes".
Est-ce possible ?
Merci !
Salut, utilises quelque chose du genre...
Bonne chance
PS. cela est devrait fonctionner si tu coches la référence DLL de
Lotus-Notes dans ton projet
Public Function SendFichierViaNotes(PalierClient As String, FichierAttache
As String) As Object
' permet l'envoi d'un courriel préadressé avec fichier joint
' ex. Call SendFichierViaNotes("Regional", "c:file.txt",
Rantanplan@farwest.net, "body text", True)
On Error Resume Next
Dim session, Maildb, MailDoc, AttachME, EmbedObj As Object
Dim UserName As String
Dim MailDbName As String
Set session = CreateObject("Notes.NotesSession")
UserName = session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) -
InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = session.GETDATABASE("", MailDbName)
'Set Maildb = session.GETDATABASE("ServeurName", "mailMaBoite.nsf")
If Maildb.ISOPEN = False Then Maildb.OPENMAIL
Set MailDoc = Maildb.CREATEDOCUMENT()
MailDoc.Form = "memo"
MailDoc.body = "Veuillez SVP détacher le fichier ci-joint dans le
répertoire EXPORT " & _
"de l'application MyApps et le récupérer via
l'utilitaire " & _
"de réception des données du module d'intégration."
If PalierClient = "Local" Then
MailDoc.sendto = AdrPilteRegion()
MailDoc.Subject = "Système MyApps: transfert des données locales
vers l'instance régionale"
Else
MailDoc.sendto = AdrPilteNational()
MailDoc.Subject = "Système MyApps: transfert des données régionales
vers l'instance nationale"
End If
'la ligne suivante indique si le message doit etre conserve dans les
document envoyé (brouillon)
MailDoc.SAVEMESSAGEONSEND = True
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", FichierAttache,
"Attachment")
MailDoc.PostedDate = Now()
On Error GoTo ErreurNotes
MailDoc.SEND True
On Error Resume Next
GoTo fin
ErreurNotes:
Call MessageErreurNotes
fin:
End Function
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de
news: C343C5EB-0FAB-4C7B-83F5-81432FBC8D70@microsoft.com...
Bonjour !
J'aimersais savoir comment envoyé un courriel par Lotus Notes via Access
2000.
Présentement, il demande toujours un profil "Outlook". Je ne désire pas
utiliser "Outlook" mais "Lotus Notes".
Salut, utilises quelque chose du genre... Bonne chance
PS. cela est devrait fonctionner si tu coches la référence DLL de Lotus-Notes dans ton projet
Public Function SendFichierViaNotes(PalierClient As String, FichierAttache As String) As Object ' permet l'envoi d'un courriel préadressé avec fichier joint ' ex. Call SendFichierViaNotes("Regional", "c:file.txt", , "body text", True)
On Error Resume Next Dim session, Maildb, MailDoc, AttachME, EmbedObj As Object Dim UserName As String Dim MailDbName As String
Set session = CreateObject("Notes.NotesSession") UserName = session.UserName MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Open the mail database in notes Set Maildb = session.GETDATABASE("", MailDbName) 'Set Maildb = session.GETDATABASE("ServeurName", "mailMaBoite.nsf")
If Maildb.ISOPEN = False Then Maildb.OPENMAIL
Set MailDoc = Maildb.CREATEDOCUMENT()
MailDoc.Form = "memo" MailDoc.body = "Veuillez SVP détacher le fichier ci-joint dans le répertoire EXPORT " & _ "de l'application MyApps et le récupérer via l'utilitaire " & _ "de réception des données du module d'intégration." If PalierClient = "Local" Then MailDoc.sendto = AdrPilteRegion() MailDoc.Subject = "Système MyApps: transfert des données locales vers l'instance régionale" Else MailDoc.sendto = AdrPilteNational() MailDoc.Subject = "Système MyApps: transfert des données régionales vers l'instance nationale" End If 'la ligne suivante indique si le message doit etre conserve dans les document envoyé (brouillon) MailDoc.SAVEMESSAGEONSEND = True
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", FichierAttache, "Attachment")
MailDoc.PostedDate = Now() On Error GoTo ErreurNotes MailDoc.SEND True On Error Resume Next GoTo fin ErreurNotes: Call MessageErreurNotes fin: End Function
"Christian" a écrit dans le message de news:
Bonjour !
J'aimersais savoir comment envoyé un courriel par Lotus Notes via Access 2000.
Présentement, il demande toujours un profil "Outlook". Je ne désire pas utiliser "Outlook" mais "Lotus Notes".
