Forum Clubic

Courriels depuis Access - envoyer des courriels depuis Access

Bonjour

Je cheche qqun qui pourrait m’aider à envoyer des courriels dont les adresses sont stockées dans une requête Access.

J’ai trouvé bcp de choses pour envoyer un élément access par courriel mais rien qui me permette de gérer les adresses depuis Access

On m’a dit d’utiliser Docmd et Sendobject, mais je ne m’en sors pas :??:

Je me demande si le plus simple ne serait pas d’importer tes adresses dans outlook avec l’option Fichier, Importer exporter.

bonjour…

ceci pourrait t’aider :

l’envoi d’un message Outlook peut s’effectuer par programmation Visual
Basic en utilisant l’ole automation, c’est à dire en pilotant Outlook à
partir d’Access.
Pour cela, il faut suivre le pas à pas suivant.

  1. Dans un formulaire, créer une zone de texte nommée message et un bouton
    nommé envoi.
  2. Afficher les propriétés du bouton et sur l’événement sur clic choisir
    le générateur de code.
  3. Aller dans le menu Outils Références et cocher la référence Microsoft
    Outlook 8.0 Object Library.
  4. Fermer cette fenêtre en cliquant sur le bouton OK.
  5. Tapez la procédure suivante :

Private Sub envoi_Click()
Dim Envol As New Outlook.Application
Dim Env As MailItem

’ Création d’un objet de type message
Set Env = Envol.CreateItem(olMailItem)

'destinataires
Env.to = “b g”
’ copie de message
Env.CC = “p e”

’ sujet du message
Env.Subject = “Envoi d’un message à partir d’Access”
'le corps du message est récupéré sur le formulaire
Env.Body = Me![message]

’ envoi du message
Env.Send

’ libération de l’objet
Set Env = Nothing
End Sub

Afin d’envoyer le message, remplire le corps du message dans la zone de
texte message et cliquer sur le bouton de commande.

En espérant que le créateur du sujet ait trouvé la réponse depuis le temps, il a posé sa question il y a presque 8 ans !