modification code pour envoi mail

Re : modification code pour envoi mail

bonjour,

j'ai pas outlook mais ...
voir avec ceci Display !
.Display '<<<<< Pour voir le mail avant envoi
.Send '<<<<<<< Pour envoyer direct(utiliser l'un ou l'autre pas les deux!)

Re : modification code pour envoi mail

Bonjour
J'ai une erreur d'exécution '424' = objet requis
débogage en jaune Item.Display

par contre si Outlook est fermé cela fonctionne il me reste à mettre les destinataires. Mais si il est ouvert le mail va directement dans ma messagerie

si Outlook est fermé ou ouvert et si je renseigne des adresses mail dans .Item.To = "a.b@sfr.fr" le mail par directement

Re : modification code pour envoi mail

Re
J'ai trouvé un autre code qui fonctionne dans les deux sens avec Outlook
Comment mettre plusieurs lignes de introduction
Sub EnvoiPlage()
' envoi d'une plage de cellules via Outlook
' Outlook doit être démarré.

Dim Plage As Range

On Error Resume Next
Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Aucune plage sélectionnée"
Exit Sub
End If

On Error GoTo 0
Plage.Select
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'"Introduction" représente un texte à afficher au-dessus de la plage de cellules dans le corps du message
.Introduction = "Bonjour merci."
'"Item" représente un objet Outlook "MailItem".
.Item.To = ""
.Item.Cc = "jp.m@cegetel.net"
.Item.Subject = "Prise en compte du sujet"
.Item.display
End With
End Sub

Re : modification code pour envoi mail

bonjour
le problème il copie tout et pas la sélection des plages