Discussion :

[LeBauw]

Bonjour,

Je suis toujours en quête d'un moyen de gérer les adresses mails que j'introduis dans le champ e-mail de mon formulaire de manière à pouvoir faire des envois grouper. Ceci soit en réunissant toutes les adresses dans un même champ à l'intérieur d'access, soit en actualisant les adresses directement dans outlook.

J'ai parcourru ce site dans tous les sens. J'ai bien vu les automations (http://access.developpez.com/faq/?page=Office#outlook), malgré qu'une ne travaille dans le sens que je souhaite, je les ai essayé, je ne parviens pas à la faire fonctionner.

Je sais que la question est mal posée trop large mais si vous avez un tuyau, une idée de recherche,... merci

[random]

bon dans ton code access ajoute la ref outlook
puis un objet outlook.application
et avec l'explorateur d'objet cherche addmember(s) puis f1
tu as même des exemples

[LeBauw]

Je vais continuer à exploiter la piste que tu proposes. Je l'ai tenté, quelque chose fonctionne manifestement mais je ne m'y retrouve pas très bien. Je te resolliciterai si tu veux bien.

Cependant, j'ai trouvé une autre solution, plus artisanale et qui a encore un problème.

En fait, je regroupe tous les mails dans un champ avec une commande

Private Sub Commande2_Click()

Dim db As Database, rs As Recordset

Set db = CurrentDb
Set rs = db.openrecordset("mailing")

Dim list As String

Do
list = list & rs![E-MAIL] & ";"
rs.movenext

Loop While Not rs.EOF
'Loop While rs.RecordCount < 90

testing = list
nb = rs.RecordCount
End Sub

et avec une autre commande, je lui demande de les envoyer

Private Sub Commande5_Click()
If [testing] <> "" Then
Application.FollowHyperlink "mailto:" & Me![testing]
End If
testing = Null
End Sub

Ca marche. La première commande reprend bien tous les enregistrements mais la seconde refuse l'exécution si le nombre d'enregistrement dépasse 90 !!! D'où la présence de deux possibilité de loop dans mon code.

Est-il connu qu'il s'agisse d'une limite ? Comment puis-je faire "sauter le verrou" ?

Merci et bonne journée

[LeBauw]

Avec ça, ça va tout seul. Si ça interesse quelqu'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SendMailCDO()
'Déclaration précoce ("Early Binding")
'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
'                   ou Microsoft CDO for Windows 2000 librairy 
Dim Message As New cdo.Message
     With Message
        .To = "destinataire@domaine.com"
        .Subject = "sujet du mail"
        .TextBody = "Le corps du message"
        .AddAttachment ("c:\chemin\fichier.ext")
        .Send
     End With
Set Message = Nothing
End Sub

Pour plus d'infos :
http://users.skynet.be/accesshome/ah...endmailcdo.htm