Envoyer plusieurs mails avec des conditions dans le message

Envoyer plusieurs mails avec des conditions dans le message - VB/VBA/VBS - Programmation

Marsh Posté le 18-12-2012 à 12:35:18    

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
Reply

Marsh Posté le 18-12-2012 à 12:35:18   

Reply

Marsh Posté le 18-12-2012 à 18:03:13    

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

Reply

Sujets relatifs:

Leave a Replay

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