ENVOYER UN MAIL AVEC LOTUS NOTES 7 AVEC MULTI-DIFFUSION, CONTENU MESSAGE (BODY)
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
-
10 janv. 2007 à 09:25
p62p Messages postés 19 Date d'inscription mardi 21 juin 2011 Statut Membre Dernière intervention 22 juillet 2011 - 30 juin 2011 à 15:46
p62p Messages postés 19 Date d'inscription mardi 21 juin 2011 Statut Membre Dernière intervention 22 juillet 2011 - 30 juin 2011 à 15:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40826-envoyer-un-mail-avec-lotus-notes-7-avec-multi-diffusion-contenu-message-body-multi-lignes-mot-de-passe-lotus-piece-jointe
https://codes-sources.commentcamarche.net/source/40826-envoyer-un-mail-avec-lotus-notes-7-avec-multi-diffusion-contenu-message-body-multi-lignes-mot-de-passe-lotus-piece-jointe
30 juin 2011 à 15:46
30 juin 2011 à 14:08
Le nom du serveur, il faut demander à l'administrateur du service informatique
Le mot de passe est celui de ta session Lotus Notes
30 juin 2011 à 14:04
30 juin 2011 à 14:03
le nom du serveur lotus tu le trouve où ?
et quand tu dit :
"et le mot de passe de ta session:
oSession.Initialize ("PASSWORD")"
je remplace PASSWORD par mon mot de passe ? :s
j'avoue je suis complétement a la ramasse
30 juin 2011 à 13:55
Quelle version de Lotus Notes ?
Est-ce que tu as bien changé le nom du serveur Lotus
Set dbDirectory = oSession.GetDbDirectory("EVREUX01/DEUTSCH")
et le mot de passe de ta session:
oSession.Initialize ("PASSWORD")
30 juin 2011 à 13:35
Donc pour le pas à pas :
-il charge bien le formulaire
- le bouton envoyer (pas de pb)
- quand il rentre dans la fonction il va a On Error GoTo ErrHandle
puis Set oSession = New NotesSession
et apres il va directement vers
ErrHandle:
MsgBox Err.Description (la il me présente la boite "memoire insufisante"
prvSendNotesMail = False
ExitHandle:
(il me le fais 3 fois puisque j'ai que 3 destinataires)
30 juin 2011 à 11:52
La taille des PJ n'est pas en dehors des limites imposées par Lotus ?
En pas à pas, où se situe l'erreur ?
30 juin 2011 à 11:21
30 juin 2011 à 11:05
Cela vient peut-être du fait que tu as demandé la déclaration de variables obligatoire.
Dans ce cas il faut déclarer Envoi
Dim Envoi as String
30 juin 2011 à 10:43
Envoi = EnvoiNotesMail("Envoi mail Lotus V7", "C:\Excel\Postes commandes bloquées", Email(i), SaveIt:=True)
30 juin 2011 à 09:30
Le "EnvoiNotesMail" est une fonction.
Il faut que ton bouton Envoyer passe la procédure:
Sub btn_Envoyer_Click()
Dim Email(6) As String
Email(1) = "erenaud@compagnie-deutsch.com"
Email(2) = "erenaud@wanadoo.fr"
For i = 1 To 2
Envoi = EnvoiNotesMail("Envoi mail Lotus V7", "C:\Excel\Postes commandes bloquées", Email(i), SaveIt:=True)
Next i
End Sub
30 juin 2011 à 09:21
Ton code m'interresse, mais le seul pb c'est que je débute en vb6. j'ai dans un formulaire un bouton ENVOYER comment tu fais pr que quand je clique sur ce bouton, on va chercher le code que tu nous a passé ?
parce que moi j'ai fait call EnvoiNotesMail(sujet.text, piecejointe.txt, desti.txt, false) mais il m'envoie un message d'erreur indiquand que cet argument n'est pas facultatif :S
Quelqu'un peut m'aider svp svp svp svp svp svp svp
18 déc. 2007 à 15:42
Cela ne me semble pas simple, mais possible !
Tu trouveras le code nécessaire ici :
http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/564e5f7e34eb52e880256cec0064759f?OpenDocument
Il s'agit d'un code en lotusscript (langage de lotus notes domino) mais tu dois pouvoir facilement l'adapter au langage que tu souhaites.
Une fois ce code ajouté, il suffira d'ajouter la fonction envoiNotesmail du code d'eren un appel (par exemple à l'interieur du If Attachment <> "") :
call CreateImageItem(MailDoc, "Body", "c:\monimage.gif")
Je n'ai pas essayé, mais cela doit marcher.
Bon courage.
18 déc. 2007 à 14:11
Est-il possible, par ce type de fonction, d'insérer une image au sein du texte et non comme un fichier attaché ?
Merci par avance,
Elise
10 oct. 2007 à 09:55
tous les types d'objets utilisés viennent du modèle objet LotusNotes. Ce qui est logique puisque le code créé un mail dans lotus notes.
Pour avoir un accusé de reception, je pense qu'il suffit de mettre un champ "ReturnReceipt" dans le mail avec comme valeur "1" :
MailDoc.AppendItemValue "ReturnReceipt", "1"
12 sept. 2007 à 17:22
il etait possible d'envoyer un message avec accusé de reception?
5 sept. 2007 à 18:12
au début j'avais oublié de cocher Lotus Domino Objects et la macro s'arrêtait à la ligne 30 du code. Maintenant j'en suis à la ligne 38
Je t'envoie le fichier à ton adresse
Merci pour ton aide
5 sept. 2007 à 15:55
Si cela ne fonctionne toujours pas, tu peux m'envoyé ton fichier à :
support@ericrenaud.fr
Je regarderai avec mon Lotus si cela fonctionne
4 sept. 2007 à 14:32
j'essaie d'utiliser le code pour envoyer un mail (Lotus Notes 7) à partir de Excel, mais la macro se bloque à l'ouverture de la session Notes => Set oSession = New NotesSession
Le message d'erreur est Erreur de Compilation, Utilisation incorrecte du mot clé New
Merci pour votre aide car cette fonction m'intéresse beaucoup
10 mai 2007 à 10:43
Je fais une appli Web en PHP/MySQL et je voudrais adapter ce script en VBScript (je débute), l'adaptation est elle difficile? Pourriez vous me donner des pistes pour la réaliser?
Merci d'avance :)
10 janv. 2007 à 11:45
- pas de "Option Explicit" certains boolean ne sont pas déclarés.
- j'ai modifié quelque peu le programme, plutôt que d'envoyer n mails, on envoi un mail à n personnes.
Cela était peut-être volontaire de ta part.
On appel EnvoiMail avec le tableau de mail, et au moment de remplir
MailDoc.AppendItemValue "SendTo", Recipient
On met tous les noms dans Recipient :
For i = 1 To 10 Step 1
If Recipient(i) <> "" Then
destinataires = destinataires + Recipient(i) + ","
End If
Next i
(oui je sais c'est pas très propre...)
Sinon ça marche niquel, encore merci :)
Si quelqu'un connait l'équivalent en C++... :)
10 janv. 2007 à 09:25
Ce code m'intéresse beaucoup, bien joué :)
Par contre :
# Dim Maildb As NotesDatabase 'The mail database
# Dim UserName As String 'The current users notes name
# Dim MailDoc As Object 'The mail document itself
# Dim AttachME As Object 'The attachment richtextfile object
# Dim oSession As NotesSession
# Dim dbDirectory As NotesDbDirectory
D'où viennent tous ces types?
Je ne sais pas si tu seras me répondre, mais je fais une GUI en C++/QT, sais tu si je peux faire la même chose avec ceci?
Merci, je m'en vais tester ça en VB
Edit : dsl ,j'avais pas vu le début du code "Référence"
Et pour le C++?
Merci