Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 308 fois - Téléchargée 39 fois
Private Sub CommandButton4_Click() Dim Session As Object Dim db As Object Dim doc As Object Dim rtitem As Object Dim object As Object Dim fs As Object Dim Principaux(2) As String Dim Copies(3) As String On Error GoTo TraiteErreur ' Ouverture d'une session NOTES Set Session = CreateObject("Notes.NotesSession") Set db = Session.GETDATABASE("", "") Call db.OPENMAIL ' Création du mail Set doc = db.CREATEDOCUMENT() doc.Form = "Memo" Principaux(0) = "titi@free.fr" Principaux(1) = "tutu@free.fr" doc.SendTo = Principaux Copies(0) = "lulu@free.fr" Copies(1) = "lili@free.fr" doc.CopyTo = Copies doc.Subject = "Passage en urgence" Set rtitem = doc.createRichTextItem("Body") Call rtitem.appendText("Veuillez trouver ci-joint le fichier ") Set object = rtitem.embedObject(1454, "", "C:\Passage Urgence.xls", "") ' Envoi du mail Call doc.Save(True, True) Call doc.SEND(True) Set object = Nothing Set rtitem = Nothing Set doc = Nothing Set db = Nothing Set Session = Nothing ' Suppression du fichier temporaire Set fs = CreateObject("Scripting.FileSystemObject") fs.deletefile "C:\Passage Urgence.xls" Set fs = Nothing Exit Sub TraiteErreur: MsgBox "Une erreur est survenue durant l'envoi.", vbCritical, "Passage en Urgence" Set object = Nothing Set rtitem = Nothing Set doc = Nothing Set db = Nothing Set Session = Nothing Set fs = Nothing End Sub
27 oct. 2010 à 12:50
29 mars 2006 à 16:27
Mais le code donné plus haut ne marche pas, raison de l'erreur, je cite Notes: "A stored form (Memo) is not allowed for TC/LINK-LN".
Quelqu'un peut il m'aider.
Merci.
25 août 2003 à 16:42
C'est un prog intéressant.
Sais tu par hasard comment ce genre de mails peut être envoyé , par un serveur de service par exemple où Lotus Notes n'est pas installé
vers une boite Notes sur un serveur distant.
Exemple : des taches sur un serveur de fichiers s'exécutent grâce à des fichiers bat. Si tout ce passe bien --> Ok , sinon exécution de ton prog qui envoie un mail aux administrateurs.
Merci
A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.