Envoyer mail

Salut JB,

sur une base de:
http://www.excelabo.net/xl/sortir.htm#envoiauto

'--->>>Avec Outlook:
'Il ne faut pas oublier d'ajouter une référence
'à Microsoft Outlook x.0 (où x
'correspond à la version Outlook)
'dans le projet VBA (Outils Références)

à placer dans le module de la feuille concernée:

'*************************
Option Explicit
Public Li
Public dest
Public Message
Public sujet

Sub envoiMailOutlook()
Dim OLf As Outlook.MAPIFolder, olmailitem As _
Outlook.MailItem, acontact As Recipient
Set OLf = GetObject("", "Outlook.Application"). _
GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = sujet
Set acontact = .Recipients.Add(dest)
.Body = Message
.OriginatorDeliveryReportRequested = False 'demande d'accusé reception
'.Attachments.Add "D:Mes Documentsvalise.EXE" 'Ici le fichier joint
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
If Target.Cells.Count > 1 Then Exit Sub ' si sélection supérieure à une cellule
If Not Intersect(Range("F1:F65536"), Target) Is Nothing _
And (Target.Value = "OK" Or Target.Value = "KO") Then

Li = Target.Row
sujet = Cells(Li, 10) ' colonne J

For i = 1 To 5 ' colonne A à E
Message = Message & Cells(Li, i)
Next

Select Case Target.Value
Case "OK"
dest = "JB@xx.fr"
Case "KO"
dest = "JF@xx.fr"
End Select

envoiMailOutlook

End If
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"JB" <jbriz@free.fr> a écrit dans le message de news:3f96fb2d$0$27036$626a54ce@news.free.fr...

Bjr,

je souhaiterai qu'un mail soit envoyé automatiquement lorsque dans la
colonne F la cellule prend la OK a JB@xx.fr et a JF@xx.fr si la cellule
prend la valeur KO.

Le subject du mail doit avoir la valeur de la cellule de la colonne J
Le body doit avoir les valeurs des cellules de la colonne A a E

Est possible si oui comment

Oh grand merci