Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
705 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoyer plusieurs mails avec des conditions dans le message

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Envoyer plusieurs mails avec des conditions dans le message

n°2168519
berserendo
Posté le 18-12-2012 à 12:35:18  profilanswer
 

Bonjour,
 
 
Je suis assez débutant en informatique et j'ai besoin d'aide pour l'envoie un envoie de CV.
J'ai crée un fichier excel avec sur la première colonne, les mails, la deuxieme, le sexe de la personne et la troisième, le nom de l'entreprise.
A partir de se fichier, je souhaiterait créer un envoie automatique. Le corps du message devra comprendre le nom de l'entreprise et le "Monsieur" ou "Madame" suivant le sexe indiqué
 
J'ai regardé sur internet, mais je n'ai pas trouver de réponses clair à mon problème, notamment pour faire un "message conditionnel".
 
Merci d'avance,
Berse`


Message édité par berserendo le 18-12-2012 à 12:39:53
mood
Publicité
Posté le 18-12-2012 à 12:35:18  profilanswer
 

n°2168550
boomy29
PSN: tintine29
Posté le 18-12-2012 à 18:03:13  profilanswer
 

un exemple  
 
          pour envoyer un message a mettre dans une boucle pour toute tes entreprises
attention a pas te faire bloquer ton adresse mail pour spam aussi  
 
        Dim Cdo_Message As New CDO.Message
        Set Cdo_Message.Configuration = GetSMTPServerConfig()
        With Cdo_Message
            .To = email
            .From = tonemail
            .Subject = "CV"
            .TextBody = "ton ctexte Mr ...."
    '        If Not IsMissing(pj) Then
    '             .AddAttachment pj 'ton cv en piece jointe  
    '        End If
            .Send
        End With
     
     
     
    la connexion pour gmail a voir suivant ton adresse mail  
     
 
Function GetSMTPServerConfig() As Object
     
    Dim Cdo_Config As New CDO.Configuration
    Dim Cdo_Fields As Object
     
    Set Cdo_Fields = Cdo_Config.Fields
    With Cdo_Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "smtp.gmail.com"
        .Item(cdoSMTPServerPort) = 465
'        .Item(cdoSendUserName) = InputBox("Veuillez saisir votre identifiant";)
'        .Item(cdoSendPassword) = InputBox("Veuillez saisir votre mot de passe gmail";)
        .Item(cdoSendUserName) = "id"
        .Item(cdoSendPassword) = "pwd"
        .Item(cdoSMTPAuthenticate) = cdoBasic
        .Item(cdoSMTPUseSSL) = True
        .Update
    End With
     
    Set GetSMTPServerConfig = Cdo_Config
    Set Cdo_Config = Nothing
    Set Cdo_Fields = Nothing
End Function


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoyer plusieurs mails avec des conditions dans le message

 

Sujets relatifs
VBA couleurs de plusieurs cellules[Résolu] Formulaire PHP : problème de TRIM
JQUERY >> faire glisser plusieurs boxes[Access] Formulaire plusieurs enreg : signaler présence d'infos
Déplacement de plusieurs cellules avec Private sub Worksheets_ChangeDelete from avec conditions multiples
Problème formule à plusieurs conditionsEnvoyer des fichiers depuis un site vers Kindle
Plus de sujets relatifs à : Envoyer plusieurs mails avec des conditions dans le message


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR