Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

envoi de mail avec excel

 

1 utilisateur anonyme et 140 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

envoi de mail avec excel

Prévenir les modérateurs en cas d'abus 
sams1
sams1
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 20/06/2007 à 11:42:39  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour tout le monde :jap: ,

 Voilà je vous explique mon problème. Je suis entrain de créer une base de données sur excel qui s'organise tel quel pour les colones: domaine de compétence/poste/nom prénom/tel/ adresse mail. Grace à une liste je peux ainsi choisir un domaine de compétence et avoir les coordonnées des personnes.
 Les adresses mail sont des liens donc quand je clique dessus outlook s'ouvre et met l'adresse de la personne dans la ligne du destinataire (A...). Bon jusqu'ici tout va bien mais le pb c'est que je dois souvent envoyer un même mail à plusieurs personnes (je ne peux pas créer de groupe car cela varie trop souvent). Ce que je souhaiterais faire c'est par exemple un systeme qui me permettrais d'ajouter les contacts dans la ligne destinataire d'outlook. Par exemple avec un systeme de case que je cocherai en face de chaque personne à qui je voudrais envoyer le mail, et un bouton auquel j'associerais une macro=>envoi du mail a toutes les personnes cochées...

 Je vous ai tout dit! Merci d'avance pour l'aide que vous m'apporterez :super: .
 @+ :hello:

cem007
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 21/06/2007 à 08:29:56  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

 Voila, j'ai ici une ebauche de code vba pour l'envoi d'un mail a plusieurs adresses.

 pour faire en sorte que ca fonctionne, dans le fichier excel, j'ai considere que la col A prenait le nom, la B l'adresse mail et la C est a remplir d'un X pour les adresses a prendre en consideration.

 voici un exemple de donnees
 A          B                  C
 nom1    Adresse_mail@a.com    X
 nom2    Adresse_mail@b.com    
 nom3    Adresse_mail@c.com    X

 il y aura donc un mail commun pour Adresse_mail@a.com et Adresse_mail@c.com

 le code VBA

 'compteur de ligne
 i = 1
 'les adresses a prendre en consideration
 cel_a_prendre = ""

 'boucle pour verifier toute la liste dans le fichier
 Do

'verification qu'il faut prendre l'adresse grace au X dans la colone C

If Range("c" & i).Value = "X" Then

'ajout de l'adresse dans la zone a prendre en consideration

cel_a_prendre = cel_a_prendre & Range("B" & i).Value & ";"

End If

i = i + 1
 'verification qu'il y a bien une donnee dans la col A
 Loop Until range("A" & i).Value = ""
 'comme il y a un ; en trop, l'enlever
 cel_a_prendre = Left(cel_a_prendre, Len(cel_a_prendre) - 1)
 'preparation du mail
 HyperLien = "mailto:" & cel_a_prendre & "?"
 ActiveWorkbook.FollowHyperlink HyperLien

 Voila, j'espere que ca pourra aider

 cordialement

 A+

 Cem

(Publicité)
sams1
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 22/06/2007 à 13:30:43  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
salut Cem :jap:

 Tout d'abord merci beaucoup pour ton code qui marche à merveille et qui correspond parfaitement a ce que je voulais faire! :super:
 Enfin j'ai encore un ptit truc à te demander ;)    penses-tu qu'il est possible par exemple si je mets un "Y" de mettre le contact en copie et si je mets "Z" en copie cachée? Ca serait la cerise sur le gateau!

 Voilà encore merci et à bientôt  :hello:

cem007
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 22/06/2007 à 21:51:53  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Salut Sam,
 de rien pour le code, quand il y a moyen de s'entraider, pourquoi s'en priver ;)

 Pour ta seconde demande, he bien, voici le code pour y arriver  ;)
 Il faut enlever le precedent code car le nom des variables a change pour plus de lisibilite

 a bientot

 Cem

 'compteur de ligne
 i = 1
 'les adresses a prendre en consideration
 adr_a_prendre = ""
 cc_a_prendre = ""
 bcc_a_prendre = ""
 'boucle pour verifier toute la liste dans le fichier
 Do

'verification qu'il faut prendre l'adresse grace au X dans la colone C

If Range("c" & i).Value = "X" Then

'ajout de l'adresse dans la zone d'adresse a prendre en consideration

adr_a_prendre = adr_a_prendre & Range("B" & i).Value & ";"

Else

'verification qu'il faut prendre la copie grace au Y dans la colone C

If Range("c" & i).Value = "Y" Then

'ajout de l'adresse dans la zone de copie a prendre en consideration

cc_a_prendre = cc_a_prendre & Range("B" & i).Value & ";"

Else

'verification qu'il faut prendre la copie blanche grace au Z dans la colone C

If Range("c" & i).Value = "Z" Then

'ajout de l'adresse dans la zone de copie a prendre en consideration

bcc_a_prendre = bcc_a_prendre & Range("B" & i).Value & ";"

End If

End If

End If

i = i + 1

'verification qu'il y a bien une donnee dans la col A
 Loop Until Range("A" & i).Value = ""

 'comme il y a un ; en trop dans chaque champ, l'enlever mais verifier que le champs n'est pas vide
 If Len(adr_a_prendre) > 0 Then

adr_a_prendre = Left(adr_a_prendre, Len(adr_a_prendre) - 1)
 End If
 If Len(cc_a_prendre) > 0 Then

cc_a_prendre = Left(cc_a_prendre, Len(cc_a_prendre) - 1)
 End If
 If Len(bcc_a_prendre) > 0 Then

bcc_a_prendre = Left(bcc_a_prendre, Len(bcc_a_prendre) - 1)
 End If

 'preparation du mail
 Hyperlien = "mailto:" & adr_a_prendre & "?"
 Hyperlien = Hyperlien & "subject="
 Hyperlien = Hyperlien & "&Cc=" & cc_a_prendre
 Hyperlien = Hyperlien & "&Bcc=" & bcc_a_prendre


 ActiveWorkbook.FollowHyperlink Hyperlien

fifi159
  1. Posté le 24/03/2009 à 21:45:51  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
excel : formule pour calculer mes heures de travail probleme pour l'envoi d'un mail
galere avec formulaire et envoi php Email automatique de confirmation d'envoi d'un formulaire
Envoi de mail PROFESSIONNEL en ASP comment envoyer en mail,1 fichier video, de plus de 50 Mo
Envoi de gros fichier par mail  
Plus de sujets relatifs à : envoi de mail avec excel

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
lecture de fichier 1
code VBA 2
effacer sans perdre du texte [résolu] 3
Offic XP avec Vista ?? 1
Image figé après le démarrage de Windows XP 2