Envoi auto d'états ACCESS par E-mails
Fermé
QSE
Messages postés
2
Date d'inscription
jeudi 31 août 2006
Statut
Membre
Dernière intervention
8 septembre 2006
-
31 août 2006 à 14:32
Philippe - 27 janv. 2011 à 11:31
Philippe - 27 janv. 2011 à 11:31
A voir également:
- Envoi auto d'états ACCESS par E-mails
- É - Guide
- Auto click - Télécharger - Divers Utilitaires
- Auto keyboard - Télécharger - Divers Utilitaires
- E chapeau ✓ - Forum Clavier
- Programmer envoi mail gmail - Guide
2 réponses
Bonjour,
Voici l'action sur clic nécessaire pour activer la fonction située plus bas. D'après ma documentation ce code est adapté à outlook 2000.
J'ai pu vérifier que tout fonctionne correctement sous ACCESS 2000 + Outlook 2000.
Peut-être pourrez-vous adapter le tout à votre contexte ? A vous de voir si c'est pertinent dans votre cas.
_________________
Private Sub ContactOutlook_Click()
'Ouvre un Contact Outlook pour cette assignation.
If Not IsNull(DestinéA) Then
OuvrirContactOutlook DestinA.Column(1)
End If
End Sub
_______________________
Public Sub OuvrirContactOutlook(strFullName As String)
'Ouvre un contact Microsoft Outlook pour le nom spécifié.
Dim appOutlook As New Outlook.Application
Dim nsOutlook As NameSpace
Dim mfContacts As MAPIFolder
Dim ciContact As ContactItem
'Ouvre le dossier Contacts par défaut d'Outlook.
Set nsOutlook = appOutlook.GetNamespace("MAPI")
Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)
'Cherche le contact appelé dans la colonne DestinéA.
Set ciContact = mfContacts.Items.Find("[FullName] = " & strFullName)
'Si le contact n'existe pas, crée un nouveau contact.
If ciContact Is Nothing Then
Set ciContact = mfContacts.Items.Add
ciContact.FullName = strFullName
End If
'Ouvre la fenêtre Contact d'Outlook.
ciContact.Display
End Sub
________________
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
Hubert REEVES.
Voici l'action sur clic nécessaire pour activer la fonction située plus bas. D'après ma documentation ce code est adapté à outlook 2000.
J'ai pu vérifier que tout fonctionne correctement sous ACCESS 2000 + Outlook 2000.
Peut-être pourrez-vous adapter le tout à votre contexte ? A vous de voir si c'est pertinent dans votre cas.
_________________
Private Sub ContactOutlook_Click()
'Ouvre un Contact Outlook pour cette assignation.
If Not IsNull(DestinéA) Then
OuvrirContactOutlook DestinA.Column(1)
End If
End Sub
_______________________
Public Sub OuvrirContactOutlook(strFullName As String)
'Ouvre un contact Microsoft Outlook pour le nom spécifié.
Dim appOutlook As New Outlook.Application
Dim nsOutlook As NameSpace
Dim mfContacts As MAPIFolder
Dim ciContact As ContactItem
'Ouvre le dossier Contacts par défaut d'Outlook.
Set nsOutlook = appOutlook.GetNamespace("MAPI")
Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)
'Cherche le contact appelé dans la colonne DestinéA.
Set ciContact = mfContacts.Items.Find("[FullName] = " & strFullName)
'Si le contact n'existe pas, crée un nouveau contact.
If ciContact Is Nothing Then
Set ciContact = mfContacts.Items.Add
ciContact.FullName = strFullName
End If
'Ouvre la fenêtre Contact d'Outlook.
ciContact.Display
End Sub
________________
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
Hubert REEVES.
Bonjour,
J'ai le problème identique à celui de JM, datant du 31 août 2006,
à savoir : << J'édite périodiquement un état, affichant des données triées par page, par noms de personnes. Ces feuillets sont expédiés par courrier. Je veux les envoyer par E-Mails, et je ne trouve pas de solutions pour envoyer la page concernant une personne à son adresse E-Mail. comment automatiser cet envoi à partir d'une table des personnes ayant un E-Mail? >>
Je ne comprends pas la réponse donnée à JM.
Pouvez-vous m'éclairer sur ce sujet ?
Merci pour toute aide apportée.
Cordialement
Philippe
J'ai le problème identique à celui de JM, datant du 31 août 2006,
à savoir : << J'édite périodiquement un état, affichant des données triées par page, par noms de personnes. Ces feuillets sont expédiés par courrier. Je veux les envoyer par E-Mails, et je ne trouve pas de solutions pour envoyer la page concernant une personne à son adresse E-Mail. comment automatiser cet envoi à partir d'une table des personnes ayant un E-Mail? >>
Je ne comprends pas la réponse donnée à JM.
Pouvez-vous m'éclairer sur ce sujet ?
Merci pour toute aide apportée.
Cordialement
Philippe
8 sept. 2006 à 16:14
Je vais essayer dès ce week end
Cordialement,
Jean Mazauric