Envoi Mail automatique

Bonjour

J'ai écris ce petit code pour envoyer des mails automatique pour une liste d'adresse mail que voici :

Option Explicit

Sub ENVOI_MAIL()

Dim nbr_ligne

Dim corps As String

Dim NUM_CONTRAT

Dim msg As MailItem

Dim DEST_MAIL

Dim strbody As String

Dim olapp As Outlook.Application

Set olapp = New Outlook.Application

Set msg = olapp.CreateItem(olMailItem)

nbr_ligne = 2

While Cells(nbr_ligne, 3) <> ""

'Sélection des mails

Cells(nbr_ligne, 3).Select

Selection.Copy

Range("B2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

DEST_MAIL = Range("B2").Value

If [B2] Like "*@*" Then

'Destinataire du message

msg.To = DEST_MAIL

'Objet du message

msg.Subject = "Objet : Information / Apport de notre activité France à notre filiale TOTAL MARKETING FRANCE"

'Texte du message

msg.Body = "Mesdames, Messieurs," 'Envoi du message

msg.Send

Else

MsgBox "Aucune adresse mail valide sélectionnée"

End If

nbr_ligne = nbr_ligne + 1

Wend

Ce que je ne comprends pas c'est que pour la 1ère adresse mail, pas de soucis cela fonctionne mail à la deuxième adresse mail

message d'erreur sur msg.To = DEST_MAIL

Quelqu'un a une idée ?

merci.///

End Sub

Bonjour,

essaie ceci, à tester ...

Option Explicit
Sub ENVOI_MAIL()
Dim nbr_ligne
Dim corps As String
Dim NUM_CONTRAT
Dim msg As MailItem
Dim DEST_MAIL
Dim strbody As String
Dim olapp As Outlook.Application
Set olapp = New Outlook.Application

nbr_ligne = 2
While Cells(nbr_ligne, 3) <> ""
'Sélection des mails
Cells(nbr_ligne, 3).Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

DEST_MAIL = Range("B2").Value
If [B2] Like "*@*" Then
'Destinataire du message
Set msg = olapp.CreateItem(olMailItem)
msg.To = DEST_MAIL
'Objet du message
msg.Subject = "Objet : Information / Apport de notre activité France à notre filiale TOTAL MARKETING FRANCE"
'Texte du message
msg.Body = "Mesdames, Messieurs," 'Envoi du message
msg.Send
set msg=nothing
Else
MsgBox "Aucune adresse mail valide sélectionnée"
End If
nbr_ligne = nbr_ligne + 1
Wend

Impeccable

Cela fonctionne !!!!

Merci

Et si je veux que le mail parte d'une autre adresse que la mienne ?

bonjour,

je ne pense pas qu'outlook le permette. tu ne peux envoyer de mail qu'à partir d'adresses qui sont liées au compte outlook.

tu peux essayer de te connecter à outllook avec le compte mail avec lequel tu souhaites envoyer les messages.

SI tu as la permission, tu peux aussi utiliser l'instruction .sentonbehalfofName

voir ici

http://www.slipstick.com/developer/code-samples/send-email-address-vba/

Ok

je vais essayer merci...