Bonjour à tous,
Je voudrai inclure un corps de message à l'envoi d'un fichier joint via excel en vba.
J'ai une macro où il y a bien le corps du message mais pas le fichier joint.
C'est celle-ci:
et un autre code où il y a le fichier joint mais pas le corps de message c'est celui-ci:
J'ai essayé de combiner les deux formules mais je n'y arrive pas.
Quelqu'un pourrait me dire ce qui cloche. Merci.
Cordialement
Dan
Je voudrai inclure un corps de message à l'envoi d'un fichier joint via excel en vba.
J'ai une macro où il y a bien le corps du message mais pas le fichier joint.
C'est celle-ci:
Code:
Sub EnvoiFeuilCalculMail()
Dim Copie As String
Dim Destinataire As String
Dim ObjetMessage As String
Dim CorpsMessage As String
Dim EnvoiDirect As Boolean
Set Wbk = ActiveWorkbook
ObjetMessage = "P1 du " & Range("H4").Value
Destinataire = Range("G68").Value
Copie = Range("G72").Value
'Désactivation de la mise à jour de l'écran
Application.ScreenUpdating = False
'Crée le corps du message avec insertion de sauts de ligne
CorpsMessage = "Bonjour Olivier" & vbCrLf & vbCrLf _
& "Veuillez trouvez ci-joint le P1" & Range("C74").Value & vbCrLf & vbCrLf _
& "Cordialement " & vbCrLf _
& "Prénom Nom " & vbCrLf _
& "Grade" & vbCrLf & vbCrLf _
& "Etablissement " & vbCrLf _
& Range("G74").Value & vbCrLf _
& Range("G75").Value & vbCrLf _
& Range("G76").Value & vbCrLf & vbCrLf _
& Range("G68").Value & vbCrLf _
'Demande à l'utilisateur s'il souhaite ou non vérifier le mail
If MsgBox("Souhaitez-vous envoyer le mail directement sans vérification ?", 36, "Confirmation") = 6 Then
EnvoiDirect = True
Else
EnvoiDirect = False
End If
'Lance le programme Outlook Express
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Destinataire & _
"?subject=" & ObjetMessage & _
"&Body=" & CorpsMessage, vbMaximizedFocus
'Message confirmant l'envoi du mail avec précision de l'heure d'envoi
MsgBox "Message envoyé avec Outlook Express à " & Format(Time(), "hh:mm"), vbOKOnly, "Opération réussie"
'Réactivation de la mise à jour de l'écran
Application.ScreenUpdating = True
Range("B9").Select
End Sub
et un autre code où il y a le fichier joint mais pas le corps de message c'est celui-ci:
Code:
Sub EnvoiMail()
Dim i As Workbook
Set i = ActiveWorkbook
Dim Destinataire As String
Dim Texte As String
i.SendMail Recipients:=Range("G87").Value, Subject:="P1 du 5974", ReturnReceipt:=True
Bcc = Range("G91")
'Crée le corps du message avec insertion de sauts de ligne
Texte = "Bonjour Olivier" & vbCrLf & vbCrLf _
& "Veuillez trouvez ci-joint le P1" & Range("C94").Value & vbCrLf & vbCrLf _
& "Cordialement " & vbCrLf _
& "Prénom Nom " & vbCrLf _
& "Grade" & vbCrLf & vbCrLf _
& "Les Floralies " & vbCrLf _
& Range("G94").Value & vbCrLf _
& Range("G95").Value & vbCrLf _
& Range("G96").Value & vbCrLf & vbCrLf _
& Range("G87").Value & vbCrLf _
Range("B9").Select
End Sub
J'ai essayé de combiner les deux formules mais je n'y arrive pas.
Quelqu'un pourrait me dire ce qui cloche. Merci.
Cordialement
Dan