Discussion :

[Orakle]

bonjour ,

toute notre société est en train de migrer vers Lotus Notes et nous avons des mails générés automatiquement par access.
Avant par Outlook, il n'y avait pas de problème mais aujourd'hui cela semble plus compliqué.

j'ai trouvé un bout de code qui semble interessant dans la FAQ pour envoyer un mail avec Notes.

J'ai tenté de l'associer à un clic de bouton mais il m'a retourner un message d'erreur !



Je m'y prend surement mal, pourriez vous m'aider svp, je ne comprends pas le sens de la démarche !

Merci

[Lou Pitchoun]

Salut,
Pour utiliser ce code avec la version 5.0.9, je peux te dire que ça marche...
Qu'as tu fais exactement ??
D'après le message, tu as un problème sur le nom de la fonction...
As tu pensé à cocher les références "Lotus Domino objects" et "Lotus Notes Automation Classes" ??

Edit : si ça t'intéresse j'ai ajouté ceci dans les paramètres du mail à envoyer pour avoir un AR :

Code :

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

    MailDoc.ReturnReceipt = "1"

[Orakle]

alors oui j'ai ajouté les references correspondantes !

Par contre avant c'était des macros avec des fichiers joints qui étaient schedulées chaque nuit via outlook .

Le fait que ce soit un module me perturbe un peu, j'ai paumé mes repères et ne sais pas comment m'y prendre.

Pourrais tu m'envoyer en MP toute ta procédure et les dépendances(la sub sur clic du bouton, si c'est le cas, ou autre) , que je vois comment cela s'articule stp ?
Parce que là je bug completement !

[Lou Pitchoun]

Tu mets le code de la faq dans un module.
Ensuite, tu appelles la fonction à partir d'un bouton (par exemple).

[Orakle]

Excuses moi de faire le nanti, mais tu l'appelles de quelle manière ?


A priori derrière mon Call NomProcedure je dois lui mettre des parenthèses et lui ajouter les paramètres de ("sujet", "destinataire","corps de texte", ...etc)
Tous ces paramètres sont des string

Mais il me renvoit systématiquement "argument non facultatif".

Alors je dois me tromper
je ne sais quoi faire !

[Lou Pitchoun]

A priori derrière mon Call NomProcedure je dois lui mettre des parenthèses et lui ajouter les paramètres de ("sujet", "destinataire","corps de texte", ...etc)

exact
Pour les valeurs non facultatives : tu dois donc y mettre une valeur.
Par exemple pour le champ Cc si tu ne veux pas le renseigner lors de l'envoi du message tu mets "".
Par contre fais attention tu as un booléen pour indiquer si tu enregistres le message dans la boite de réception !

[Orakle]

ouep ça marche !

Merci

Par contre j'ai vu qu'on peut envoyer à plusieurs destinataires sous forme de tableau.
Ma question est :

Puis je faire des groupes sous Notes et mettre le nom de ce groupe comme destinataire plutôt que d'utiliser un tableau comme décrit plus loin dans la FAQ ?
Car cette procedure à l'air de n'accepter que des adresse sous forme toto@titi.com !

Le soucis c'est que dans le cas ou j'ai une base avec differents mails à envoyer à differents destinataires, je ne voudrais pas me faire un tableau different à chaque fois !

[Lou Pitchoun]

A mon avis ça devrait être possible...
Créé un groupe avec 2 ou 3 personnes qui seront des betas testeurs ou alors utilise 2 ou 3 adresses mail perso (hotmail, gmail, yahoo etc...) que tu mets dans ce groupe.
Lotus devrait reconnaitre ce groupe et effectuer l'envoi.

[Orakle]

Bon là je n'ai pas encore testé, mais j'en ai une petite dernière pour la route !

Je sais qu'on peut attacher un fichier, mais peut on :

convertir une requête Access en fichier Excel la renommer et l'exporter/l'envoyer sous Notes ?

ça par contre je n'ai rien vu là dessus.
Je fais une comparaison entre une procédure normal (docmd.SendObject) et celle là pour voir les différence, mais dans la procédure SendObject, j'ai plus de paramètre.

Exemple type avec Access et Outlook :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Test_Fichier_joint()
On Error GoTo Test_Fichier_joint_Err
 
    DoCmd.SetWarnings False
 
    DoCmd.SendObject acQuery, "NomdemaRequete", _
    "MicrosoftExcel(*.xls)", "toto@titi.com", "momo@jojo.com", _
    "", "SujetduMail", "CorpsDeMessage", False, ""
 
    DoCmd.Quit acSave
 
 
Test_Fichier_joint_Exit:
    Exit Function
 
Test_Fichier_joint_Err:
    MsgBox Error$
    Resume Test_Fichier_joint_Exit
 
End Function

Alors que la fonction proposée (FAQ) n'envois que du RTF


Edit : J'ai testé le group c'est nickel aussi, il me manque plus qu'à trouver la manière de choisir mon format de sortie pour envoyer mon fichier joint et ce sera parfait !

[Lou Pitchoun]

Je sais qu'on peut attacher un fichier, mais peut on :

convertir une requête Access en fichier Excel la renommer et l'exporter/l'envoyer sous Notes ?

Je te renvoi vers la FAQ (les sources ???), y pleins de choses dessus : exporter une requête vers excel voir l'aide "TransferSpreadsheet"

Je fais une comparaison entre une procédure normal (docmd.SendObject) et celle là pour voir les différence, mais dans la procédure SendObject, j'ai plus de paramètre.

Exemple type avec Access et Outlook :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Test_Fichier_joint()
On Error GoTo Test_Fichier_joint_Err
 
    DoCmd.SetWarnings False
 
    DoCmd.SendObject acQuery, "NomdemaRequete", _
    "MicrosoftExcel(*.xls)", "toto@titi.com", "momo@jojo.com", _
    "", "SujetduMail", "CorpsDeMessage", False, ""
 
    DoCmd.Quit acSave
 
 
Test_Fichier_joint_Exit:
    Exit Function
 
Test_Fichier_joint_Err:
    MsgBox Error$
    Resume Test_Fichier_joint_Exit
 
End Function

Alors que la fonction proposée (FAQ) n'envois que du RTF

j'envoi des bases access par mail... tu peux envoyer tout ce que tu veux...

Edit : J'ai testé le group c'est nickel aussi, il me manque plus qu'à trouver la manière de choisir mon format de sortie pour envoyer mon fichier joint et ce sera parfait !

T'es sur la bonne voie !!!

[Orakle]

Bon j'ai trouvé quelque chose, ce n' est pas encore ce que je souhaiterais, mais ça marche !

En gros :

j'exporte le fichier dans un repertoire sur le serveur et je vais le chercher en désignant la cible.

Ce que j'aimerais, c'est me passer de l'étape intermédiaire (l'export sur le serveur) et transformer directement ma requête ou table en .xls et l'attacher à mon mail, mais je ne sais pas si c'est possible, mais ça éviterait de donner un chemin cible !

Mais bon là

Si toi ou quelqu'un connais l'astuce ...

merci

[Lou Pitchoun]

Me revoilà...
Pas facile de trouver du temps pour te répondre ces derniers temps...
Alors pour envoyer ta requête au format xls dans lotus, tu procèdes de la manière suivante :
1) Utilise TransferSpreadsheet
exemple :

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, NomRequete, ParentDir(Application.CurrentDb.Name) & "Classements.xls", True

Ce bout de code permet d'enregistrer le résultat d'une requête vers excel et de l'enregistrer dans le répertoire de la base de données. Fais une recherche dans le forum et/ou la FAQ et les Sources pour retrouver la fonction ParentDir
2) récupère le chemin utilisé dans "TransferSpreadsheet" pour l'utiliser dans la fonction lotus
Voilà...

[Orakle]

Ah oui mais ça je le faisais déjà !

Ce que j'aurais préféré, c'est avoir une fonction d'envois avec Lotus, avec les mêmes paramètres que la fonction DoCmd.SendObject qui permette directement de saisir en argument le type d'objet, son nom et son format de sortie en évitant d'aller créer un fichier sur le serveur !

Mais bon c'est la manière que tu as décrites que je suis en train de faire pour le moment, n'en connaissant pas d'autre.

D'ailleurs il y a même plus simple puisqu'il suffit de dire :

Code :

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

1
2
Call SendNotes("TEST Fichier Joint", "C:\BLABLA\TEST NOTES\STATS.xls", "titi@toto.com", "", _
                         "", "Test d'envois de fichier joint avec Notes via Access", False, "")

et là tu as tout aussi !

Merci à toi