envoyer email auto

[VBA_ DEAD]

Bonjour,

J'ai besoin d'un peu (beaucoup?) d'aide malgré tout ce que j'ai trouvé sur le site.

Voilà j'essaie d'envoyer des emails selon 1 liste ds excel. Cette liste est ds la colonne 3 de mon fichier ouvert et en colonne 4 je mets un signe 'OK' ou rien (OK si j'ai reçu une réponse de la personne car j'envoie un email à 100 - 150 personnes - c'est un email commun pas individualisé)

Donc j'ai trouvé la macro de dessous - merci à son auteur- mais je veux ajouter quelques paramètres et je n'y arrive pas (voir au bas du code les paramètres : Cc, Subject et message')

De plus comment je fais pour dire à la macro que si ds la colonne 4 le terme OK (en minuscule ou majuscule) apparaît alors ne pas sélectionner cette adresse

Je vous remercie pour votre aide et vos conseils.

Pour info : J'ai trouvé plusieurs macros sur le sujet et cet exemple me semble assez simple c'est pour cela que je l'ai choisi. J'ai vu les fils de Thierry… mais j'avoue que cet exmeple me semble + simple.




Sub Lit_Adrs()
Dim Tbl As Range, Adrs As Range
Dim Ligne As Long, Ligne_Encour As Long
Dim Adresse_Mail As String
Dim Col As Byte
Dim TheMessage As String

Set Tbl = ActiveSheet.UsedRange
Col = Tbl.Columns.Count
Ligne = Tbl.Rows.Count
For Each Adrs In Tbl
If Adrs.Column = 3 Then 'colonne 3 où sont listées les adresses emails
Ligne_Encour = Adrs.Row
If Ligne_Encour < Ligne Then
Adresse_Mail = Adresse_Mail & Adrs & ';'
Else
Adresse_Mail = Adresse_Mail & Adrs
End If
End If
Next Adrs

ThisWorkbook.FollowHyperlink Address:='mailto:' & Adresse_Mail
Voir après ce que je veux faire

'Comment je dis ='subject:' & Tjs rien reçu de votre service'
'Copie à ='TheChief@xld.fr
'message que je veux mettre ds le corps de l'email:
TheMessage = '= = = This is an automatic generated email = = =' & vbCrLf & vbCrLf & _
'It seems that you don't have yet send to me the information' & vbCrLf & vbCrLf & _
'Please advise' & vbCrLf & vbCrLf & _
'Best regards' & vbCrLf & vbCrLf & _
'Mr Cocktail'

End Sub


Merci pour votre aide

VBA_DEAD

 

[VBA_DEAD]

Bonsoir,

je reviens avec un autre exemple d`envoi d`email qui fait aussi ce que je recherche. (exemple trouve sur le site - merci a l`auteur)

En colonne a droite des adresses emails, le terme 'OK'

Si 'OK' existe ds la colonne, alors j`envoie pas l`email a cette personne

comment je peux faire cela??

Merci beaucoup pour votre aide

VBA_DEAD [file name=DemoMessagerie.zip size=13777]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DemoMessagerie.zip[/file]