Emailing avec Access et Outlook
jeannot
-
Laurent -
Laurent -
Bonjour,
j'aimerais faire un emailing (+ou- 150 envois) avec un message créé dans outllook 2000.
Les emails de mes contacts sont dans une base de données Access 2000, dans une table où j'ai toutes leurs coordonnées.
Bien sur je rajoute régulièrement des contacts et ma base évolue.
Faut-il extraire ces emails d'access pour les envoyer dans un groupe du "carnet d'adresses" ? mise à jour manuelle à chq fois :-(
Outlook peut-il aller directement dans Access chercher ces adresses ? mise à jour automatique :-)
Comment faire ? Je fais appel à vos lumières... B-)
Merci d'avance
jeannot
j'aimerais faire un emailing (+ou- 150 envois) avec un message créé dans outllook 2000.
Les emails de mes contacts sont dans une base de données Access 2000, dans une table où j'ai toutes leurs coordonnées.
Bien sur je rajoute régulièrement des contacts et ma base évolue.
Faut-il extraire ces emails d'access pour les envoyer dans un groupe du "carnet d'adresses" ? mise à jour manuelle à chq fois :-(
Outlook peut-il aller directement dans Access chercher ces adresses ? mise à jour automatique :-)
Comment faire ? Je fais appel à vos lumières... B-)
Merci d'avance
jeannot
A voir également:
- Emailing avec Access et Outlook
- Synchroniser agenda google et outlook - Guide
- Supprimer compte outlook - Guide
- Acer quick access ✓ - Forum PC portable
- Copie cachée outlook - Guide
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
2 réponses
Bonjour Jeannot,
je sais que le message date un peu, mais je suis tombé par hasard dessus. J'ai le même problème que j'aimerai automatiser mais je n'ai pas trouvé de solutions.
En as-tu trouvé une et laquelle ?
Merci d'avance
je sais que le message date un peu, mais je suis tombé par hasard dessus. J'ai le même problème que j'aimerai automatiser mais je n'ai pas trouvé de solutions.
En as-tu trouvé une et laquelle ?
Merci d'avance
Il est plus facile d'envoyer les Emails directement depuis Access
Voici le code :
Function EnvoiEnNombre()
Dim strSujet As String
Dim strMsg As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
' Ouverture de la requête_mail
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Requête_mail] WHERE NOT IsNull(Email);", cnn
' Sujet du message
strSujet = "Suivi de votre intervention chirurgicale"
' Envoi d'un e-mail par personne
While Not rst.EOF
' Constitution du message personnalisé
strMsg = rst("Patient") & vbCrLf & _
vbCrLf & _
"Dans le but d’assurer un suivi optimal de votre évolution et conscient du fait qu’il ne vous semble plus nécessaire" & vbCrLf & _
"de revenir en consultation vu la date éloignée de votre intervention,voudriez-vous répondre aux questions ci-dessous." & vbCrLf & _
vbCrLf & _
vbCrLf & "Quel est votre poids actuel" & _
vbCrLf & _
vbCrLf & "Etes vous satisfait(e) de l'intervention" & _
vbCrLf & _
vbCrLf & "Si non : pourquoi?" & _
vbCrLf & _
vbCrLf & "Merci pour vos réponses" & _
vbCrLf & _
vbCrLf & "Si vous ne souhaitez plus recevoir ce mail à l'avenir merci de me le faire savoir" & _
vbCrLf & vbCrLf & "signature."
' Envoi du message
DoCmd.SendObject acSendNoObject, , , _
rst("Email"), , , strSujet, _
strMsg, False
' Patient suivant
rst.MoveNext
Wend
' Fermeture et libération des objets
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function
Voici le code :
Function EnvoiEnNombre()
Dim strSujet As String
Dim strMsg As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
' Ouverture de la requête_mail
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Requête_mail] WHERE NOT IsNull(Email);", cnn
' Sujet du message
strSujet = "Suivi de votre intervention chirurgicale"
' Envoi d'un e-mail par personne
While Not rst.EOF
' Constitution du message personnalisé
strMsg = rst("Patient") & vbCrLf & _
vbCrLf & _
"Dans le but d’assurer un suivi optimal de votre évolution et conscient du fait qu’il ne vous semble plus nécessaire" & vbCrLf & _
"de revenir en consultation vu la date éloignée de votre intervention,voudriez-vous répondre aux questions ci-dessous." & vbCrLf & _
vbCrLf & _
vbCrLf & "Quel est votre poids actuel" & _
vbCrLf & _
vbCrLf & "Etes vous satisfait(e) de l'intervention" & _
vbCrLf & _
vbCrLf & "Si non : pourquoi?" & _
vbCrLf & _
vbCrLf & "Merci pour vos réponses" & _
vbCrLf & _
vbCrLf & "Si vous ne souhaitez plus recevoir ce mail à l'avenir merci de me le faire savoir" & _
vbCrLf & vbCrLf & "signature."
' Envoi du message
DoCmd.SendObject acSendNoObject, , , _
rst("Email"), , , strSujet, _
strMsg, False
' Patient suivant
rst.MoveNext
Wend
' Fermeture et libération des objets
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function
Bonjour,
Je découvre le sujet et il correspond à mon besoin.
J'ai exploité le code vb sous access et cela fonctionne bien.
J'ai juste un problème...
J'utilise Outlook 2003 sous windows XP Pro.
Quand je déclenche la procédure d'envoi des Emails, j'ai un message d'alerte automatique d'Outlook pour chacun des mails et je dois cliquer sur "Oui" pour envoyer l'Email !
J'envoie plusieurs centaines de mails par envois et je ne peux valider ce message pour chacun d'eux.
Savez vous comment désactiver ce message d'alerte ?
Merci d'avance
Je découvre le sujet et il correspond à mon besoin.
J'ai exploité le code vb sous access et cela fonctionne bien.
J'ai juste un problème...
J'utilise Outlook 2003 sous windows XP Pro.
Quand je déclenche la procédure d'envoi des Emails, j'ai un message d'alerte automatique d'Outlook pour chacun des mails et je dois cliquer sur "Oui" pour envoyer l'Email !
J'envoie plusieurs centaines de mails par envois et je ne peux valider ce message pour chacun d'eux.
Savez vous comment désactiver ce message d'alerte ?
Merci d'avance