bonjour
je cherche a envoyer la feuille "reporting" du "classeur1"classeur qui est déjà ouvert par email a plusieurs destinataire
pour le moment j'utilise ce code
Sub Envoi_Mail2()
Sheets("reporting").Select
Range("A130").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour," & Chr(10) & Chr(10) & "Ci-joint le document demandé." & Chr(10) & "Dans l'attente de votre retour" & Chr(10) & Chr(10) & "Salutations" & Chr(10) & "David" & Chr(10) & "A+" & Chr(10) & Chr(10)
.Item.To = "david.ignasiak@neuf.fr"
.Item.Subject = "doc"
.Item.send
End With
End Sub
ce code fonctionne par contre
le document envoyé apparaît en doc alors que je voudrais l'avoir en piece jointe et format xls
j'aimerais mettre plusieurs destinataires
merci Julie
je cherche a envoyer la feuille "reporting" du "classeur1"classeur qui est déjà ouvert par email a plusieurs destinataire
pour le moment j'utilise ce code
Sub Envoi_Mail2()
Sheets("reporting").Select
Range("A130").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Bonjour," & Chr(10) & Chr(10) & "Ci-joint le document demandé." & Chr(10) & "Dans l'attente de votre retour" & Chr(10) & Chr(10) & "Salutations" & Chr(10) & "David" & Chr(10) & "A+" & Chr(10) & Chr(10)
.Item.To = "david.ignasiak@neuf.fr"
.Item.Subject = "doc"
.Item.send
End With
End Sub
ce code fonctionne par contre
le document envoyé apparaît en doc alors que je voudrais l'avoir en piece jointe et format xls
j'aimerais mettre plusieurs destinataires
merci Julie