envoie d'un mail via excel apres enregistrement

envoie d'un mail via excel apres enregistrement - VB/VBA/VBS - Programmation

Marsh Posté le 07-09-2006 à 10:44:25    

Bonjour à tous,  
 
savez-vous si il est possible d'envoyer un mail automatiquement à chaque fois qu'un fichier excel est modifié,  
je pense que cela doit se faire en macro mais j'en ai aucune idéé n'etant pas du tout un expert en macro excel ,  
 
si qq'un pouvez m'aider ca serait tres sympas  
 
Merci

Reply

Marsh Posté le 07-09-2006 à 10:44:25   

Reply

Marsh Posté le 07-09-2006 à 14:45:35    

bonjour,
possible par outlook, à voir
Cordialement

Reply

Marsh Posté le 07-09-2006 à 15:23:08    

seniorpapou a écrit :

bonjour,
possible par outlook, à voir
Cordialement


 
Merci pour ta reponse , mais je suis sous Lotus Notes

Reply

Marsh Posté le 07-09-2006 à 18:35:52    

Bonsoir,
trouvé pour toi:
Comment envoyer des e-mails via Lotus Notes ?
Il suffit d'employer le modèle objet de Lotus Notes. Voici un exemple de code permettant d'envoyer un e-mail :
 
Dim Session As Object
Dim db As Object
Dim doc As Object
 
Set Session = CreateObject("Notes.NotesSession" )
Set db = Session.GETDATABASE("", "" )
Call db.OPENMAIL
 
Set doc = db.CREATEDOCUMENT()
With doc
    .Form = "Memo"
    .SendTo = "adresse@serveur.com"
    .CopyTo = "adresse@serveur.com"
    .subject = "Petit test"
    .body = "Ceci est un petit test d'envoie de message"
    .From = Session.COMMONUSERNAME
    .PostedDate = Now
    .SAVEMESSAGEONSEND = True
End With
Call doc.SEND(True)
 
Set Session = Nothing
Set db = Nothing
Set doc = Nothing
 
Pour plus d'infos, consultez la Documentation Library de Lotus sur http://www-10.lotus.com/ldd/doc.
 
 
Mais je n'ai pas vu les PJ traitées dans le code.
probablement attachement....  
Lotus Notes ne fait pas partie de mes fréquentations. lol
Cordialement


Message édité par seniorpapou le 07-09-2006 à 18:50:11
Reply

Marsh Posté le 07-09-2006 à 18:57:03    

trop fort c'est super ca marche pour lotus notes, Merci beaucoup  
 
mais alors quel code je dois rentrer pour attacher à ce mail, ma feuille excel à chaque modification ???
 
Merci pour ton aide

Reply

Marsh Posté le 07-09-2006 à 20:31:38    

Bonsoir,
pour outlook on aurait mis:
 
Set myAttachments = doc.Attachments
  myAttachments.Add "C:\LE CHEMIN DU FICHIER\essaipourimail.xls", olByValue, 1, "UN NOM FACULTATIF"
 
entre le set doc    et le with doc
 
pour la séquence lotus, je ne sais pas. As-tu parcouru le site
http://www-10.lotus.com/ldd/doc.  ?
 
Cordialement

Reply

Marsh Posté le 08-09-2006 à 07:51:32    

seniorpapou a écrit :

Bonsoir,
pour outlook on aurait mis:
 
Set myAttachments = doc.Attachments
  myAttachments.Add "C:\LE CHEMIN DU FICHIER\essaipourimail.xls", olByValue, 1, "UN NOM FACULTATIF"
 
entre le set doc    et le with doc
 
pour la séquence lotus, je ne sais pas. As-tu parcouru le site
http://www-10.lotus.com/ldd/doc.  ?
 
Cordialement


 
Oui j'ai jetté un oeil mais ils ne parlent pas de tt ça,  
je pensais pas qu'il y avait un code spéciale pour chaque mail different (outlook et notes)  
je croyais plutot que ça dépendais plutot de la macros excel,  
je vais chercher plus en détail dans les autres topic pour voir si on parle pas de ça , j'avais cherché mais en vain ,  
 
si j'ai qq chose je te tiens au courant  
Merci  

Reply

Marsh Posté le 08-09-2006 à 17:25:02    

Bonsoir,
par zazar j'ai trouvé ce post de khaostyke
http://forum.hardware.fr/hardwaref [...] 4874-1.htm
si j'ai bien compris, il envoie des mail par notes.
 
si tu peux le contacter par message privé, il regarde peut-être le forum de temps en temps
Cordialement

Reply

Marsh Posté le 08-09-2006 à 17:45:21    

Reply

Marsh Posté le 11-09-2006 à 12:27:15    


 
Merci beaucoup je vais essayer tout ça , merci pour ton aide

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed