Vba excel

[doni76]

Bonjour
Je debute actuellement en vba excel mais je me suis deja lancer dans l'envoie automatique d'email via une macro.
Avec beaucoup de recherche et de temps passer j'arrive a quelque chose d fonctionnel mais qui ne reuni pas tous mes criteres

J'aimerai si possible que l'on m'aide a effectuer ceci

J'ai une plage d'adresse E2:E20
Chaque ligne correspondant a un numero 1 , 2 ou 3
J'aimerai selon le numero correspondant dans la case avoir :
Toutes les lignes numeroter avec un 1 envoi un email
Sub Envoi()

EnvoiEmail Adresse:=PH(Range("B2:B4")), _
Objet:=Range("D2"), _
Corps:=Range("D3")

End Sub

Toutes les lignes numeroter avec un 2 envoi un email

Sub Envoi()

EnvoiEmail Adresse:=PH(Range("B2:B4")), _
Objet:=Range("F2"), _
Corps:=Range("F3")

End Sub

Merci d'avance
Cordialement

 

[Softmama]

Re : Vba excel

Bonjour,

A la volée, et donc à tester, tu dois pouvoir t'en sortir comme ça :

Sub EnvoiMail()
Dim Msg$, Objet$, Corps$, c as range
For each c in range("E2:E20")
    Select case c
     Case 1
        Objet = range("D2").value
        Corps = range("D3").value
     Case 2
        Objet = range("F2").value
        Corps = range("F3").value
     Case else
        Exit sub
    end select
With CreateObject("CDO.Message")
    .From = "Ton.nom@opérateur.fr"
    .To = range("B2").value
    .cc = Range("B3").value & ";" & Range("B4").value 
    .Subject = Objet
    .HTMLBody = Corps
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.club-internet.fr" 'à adapter
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Configuration.Fields.Update
    On Error Resume Next
    .Send
    If Err Then MsgBox "Le message n'a pas pu être expédié."
    On Error GoTo 0
End With
End Sub

 

[doni76]

Re : Vba excel

ok merci je vais tester ca
cordialement

 

[doni76]

Re : Vba excel

Non dsl cela ne marche pas

Voici a la base ma macro

ENVOI AUTOMATIQUE DE MAIL (AVEC PIÈCE JOINTE) EN VBA : EXCEL, WORD OU ACCESS PAR OULOOK EXPRESS OU MODZILLA THUNDERBIRD OU D'AUTRES mail, automatique, pièce jointe, envoi mail, VBA, Source N°3154

cdlt

 

[Softmama]

Re : Vba excel

re,

Voici a la base ma macro

Ben suffit de la virer (très compliquée pour les besoins que tu exprimes là) et de placer celle que je t'ai faite à la place. (sans oublier de paramétrer la ligne

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.club-internet.fr"

où à la place de mail.club-internet, il faut que tu mettes le serveur smtp de ton FAI : la liste ici

 

[doni76]

Re : Vba excel

Non Meme seul elle ne marche pas
En aucun cas tu precise que thunderbird est mon client par default et tu lui indique les etapes a effectuées pour envoyer le mail grace a mon client de messagerie.
C'est pour cela que ma macro etait si compliquer
cordialement

 

[Softmama]

Re : Vba excel

Re,

Tu obtiens un message d'erreur ? Lequel ?