[AC-2007] Synchroniser mon envoi mail via ma table destinataire

[Debutant10]

Bonjour,

J'ai mon code dans mon module 1 qui fonctionne bien après un bon moment (mais fastidieux et pas très pratique en pièce jointe):

AVANT :
j'envoyais mon mail à un destinataire via VBA en le déclarant à chaque fois son adresse mail dans le script (pas très pratique).

APRES :
Je souhaiterais envoyer mon mail en cliquant sur un bouton puis choisir via la liste déroulante les destinataires déclarés dans ma table "recip"


au lieu d'écrire à la main à chaque fois le nom du destinataire dans script VBA (fastidieux et pas très pratique)

Il est possible d'indiquer à Lotus Notes plusieurs destinataires en affectant un tableau de type Variant à la propriété sendto ? si oui comment le synchroniser dans mon cas ? Merci

[Dolphy35]

Bonsoir,

Où est le début de la recherche. Je viens de lire la PJ.

1-erreur de compilation.
2-rien ne concernant ce vous voulez faire.

Ne comptez pas sur nous pour réaliser le travail à votre place.

Dolphy

[Debutant10]

Boujour,

Plus simple je recherche à savoir comment faire le lien entre ma table destinataires "recyp" et faire un envoi via mon bouton de commande sur mon formulaire nommé "envoi" tout simplement.

Merci pour ceux qui peuvent m'aiguiller.

[Dolphy35]

Bonsoir,

un excellent tutoriel permettant de faire cela.
Création et manipulation des données avec DAO

sinon un sujet similaire traité, j'avoue c'est pas Lotus mais le concurrent OL. mais l'idée est la même.
envoi mail à x destinataires

Maintenant tous les éléments sont disponible, on trouve plein choses sur dvp

Dolphy

[Debutant10]

Bonjour,


Merci pour le lien, je vais tester et voir si cela fonctionne avec lotus ?

Car dans mon script le code me parait vraiement bcp plus simple et fonctionne bien avec lotus il ouvre la session envoi le mail à un destinataire,

mais le tout petit mais vraiement tout petit pb c pour attacher la pièce jointe

[Dolphy35]

Bonsoir,

DAO fonctionne avec Lotus ?

Avez-vous lu le tutoriel ?? DAO n'a aucune interaction avec Lotus

Car dans mon script le code me parait vraiment bcp plus simple et fonctionne bien avec lotus il ouvre la session envoi le mail à un destinataire,

DAO permet de manipuler les données dans une base de données, le code pour envoyer le mail avec Lotus reste inchangé.

mais le tout petit mais vraiment tout petit pb c pour attacher la pièce jointe

Merci de rester sur la demande initiale qui est : Synchroniser mon envoi mail via ma table destinataire.
Donc pour ce sujet je vous propose comme solution de récupérer votre liste de diffusion issu de votre table avec DAO mais si vous avez une autre solution...

Donc mes liens vous permet de faire ce que vous demandez sans pour autant casser le code de l'envoi de mail.

Dolphy

[Debutant10]

Bonsoir,

1/ je vais chercher comment récupérer ma liste de diffusion issu de ma table avec DAO mais aussi comment attacher une pièce jointe.

je pense qu'il faut déclarer une variable pour la liste ?


2-/la pièce jointe

[Debutant10]

pour le cas

1-/ en cours de recherche lien table vers code.



pour le cas 2/ voici comment je pense faire la modif sur le code pour insérer un état en pièce jointe :


Déclaration des variables :

Code :

1
2
3
4
5
6
7
8
Dim Maildb As Object      '
    Dim UserName As String    '
    Dim MailDbName As String  '
    Dim MailDoc As Object     '
    Dim AttachME As Object    ' C:\Users\Desktop\projet 1-.pdf
 
    Dim Session As Object     '
    Dim EmbedObj As Object    '

ensuite créer le lien entre l'état nommé projet 1
ou plus encore un fois changé en pdf voici le chemin :

C:\Users\Desktop\projet 1-.pdf

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'   If Not IsMissing(Attachment) Then
If Attachment <> "" Then
      For i = UBound(varObjPJ) - 1 To 0 Step -1
           Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment" & i)
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", varObjPJ(i), "Attachment")
        MailDoc.CREATERICHTEXTITEM ("myfiles" & i)
      Next i
End If
'   End If
 
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, recipient
 
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

j'ai essayé plusieur fois d'insérer le chemin mais cela veut pas ....

Code :

1
2
MailDoc.CREATERICHTEXTITEM ("C:\Users\Desktop\projet 1-.pdf
" & i)

[Debutant10]

Bonjour Dolphy,

Je vais essayé comment débloquer la problèmatique avec le lien que vous m 'avez envoyé et voir s'il est possible de l'adapter à lotus version 7 ?

--> envoi mail à x destinataires

-->sinon un sujet similaire traité, j'avoue c'est pas Lotus mais le concurrent OL. mais l'idée est la même.


voici le code qui est sur le lien :

Ok pour le principe mais pour cela j'ai besoin d'explications :
à savoir l'adaptation avec lotus : est-il nécessaire de déclarer la session lotus.notes dans le code ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub ENVMAIL_Click()
 
Dim Db As DAO.Database
    Dim rst As DAO.Recordset
    Dim qry As DAO.QueryDef
    Dim NbEnreg As Integer
    Dim MaVariableTO As String '-> Ajout du type de la variable
 
    'Ouverture de la requête
    Set Db = CurrentDb
    Set qry = CurrentDb.QueryDefs("R-club")      'Ma requete
    Set rst = qry.OpenRecordset
 
   NbEnreg = rst.RecordCount
   MsgBox "Nombre de mails " & NbEnreg
 
   MaVariableTO = "bibi@free.fr" '-> Permet de mettre la première adresse de la liste de diffusion
 
    While Not (rst.EOF)
         MaVariableTO = MaVariableTO & ";" & rst.Fields("MAIL") ' le champ 
         rst.MoveLast
    Wend
 
 'ENVOI MAIL
 With CreateObject("CDO.Message")
 .From = "moi@free.fr"
 .To = MaVariableTO
 .Subject = "Résultats du Match"
 .TextBody = "Bonne réception" & vbCrLf & "Salutations Sportives"
 .AddAttachment ("C:\Documents and Settings\admin\Mes documents\TEST_BASES\Resultats_ouv.pdf")
 .AddAttachment ("C:\Documents and Settings\admin\Mes documents\TEST_BASES\Equipes_ouv.pdf")
 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 .Configuration.Fields.Update
 On Error Resume Next
 .Display
 '.Send
 If Err Then MsgBox "Le message n'a pas été expédié."
 On Error GoTo 0
 End With
End Sub

Pouvez vous m'expliquer le lien ci-dessous car j'ai pas très bien compris ?
: --> le http:// car moi c via lotus et non comme ce ci ?

Code :

1
2
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 .Configuration.Fields.Item

Comme dans l'exemple : puis je créer une requête pour la liste des destinataires comme cela c'est à dire une requête depuis ma table destinataire ?

Code :

Set qry = CurrentDb.QueryDefs("R-club")      'Ma requete