Microsoft 365 Pieces jointe a un mail

luc50*

XLDnaute Nouveau
Bonjour,
débutant en programmation VBA, je cherche a créer un code vba qui me permette d'ajouter des pièces jointes a un mail via une msgbox yesno
Je m'explique j'ai un message a envoyer avec plusieurs des feuilles jointe a mettre selon les cas j arrive a créer les différente messages et a aller choisir les différentes pièces mais quand je ne veux pas mettre de pièce je ne parviens pas a passe au message suivant.
je vous met mon code en espérant que l'un d'entre vous puisse m'aider.
Par avance MERCI
Ps : mon fichier est trop gros pour être joint

MsgBox "REDACTION DU MAIL EN COURS", vbInformation, "Cei"
MsgBox "INSERER LE CEI"
Dim réponse As String

réponse = Application.GetOpenFilename(, , " selectionner le fichier à envoyer")
If Fichier = "" Then

MsgBox " AUCUN FICHIER SELECTIONNE,CREATION DU MAIL ANNULE", vbCritical, "CEI"
Exit Sub
End If


Dim réponse1 As Integer

réponse1 = MsgBox("INSERER LA DICT", vbYesNo)
If réponse1 = vbYes Then
réponse1 = Application.GetOpenFilename(, , " selectionner le fichier1 à envoyer")

Else

End If



Dim réponse2 As Integer


MsgBox "(INSERER LE SUIVI PROTYS",vbYesNo)
If réponse2 = vbYes Then
réponse = Application.GetOpenFilename(, , " selectionner le fichier1 à envoyer")

Else

End If



Dim lemail As Variant
Set lemail = CreateObject("outlook.application") 'creation d'un objet outlook
With lemail.CreateItem(olMailItem)
.Subject = " cei GRTgaz"
.To = Range("bs2")
.Attachments.Add réponse
.Attachments.Add réponse 1
.Attachments.Add réponse 2
.Body = Range("bw17")
.Display
MsgBox " ENVOI DU MAIL EN COURS ", vbInformation, "cei"

End With
End Sub
 

fanch55

XLDnaute Barbatruc
Salut,
Une possibilité:
VB:
Sub Envoi_mail()
Dim Fichier As Variant
    With CreateObject("outlook.application").CreateItem(olMailItem)
        Fichier = Application.GetOpenFilename(, , " selectionner le fichier CEI à envoyer")
            If Fichier <> False Then .Attachments.Add Fichier
        Fichier = Application.GetOpenFilename(, , " selectionner le fichier DICT à envoyer")
            If Fichier <> False Then .Attachments.Add Fichier
        Fichier = Application.GetOpenFilename(, , " selectionner le fichier PROTYS à envoyer")
            If Fichier <> False Then .Attachments.Add Fichier
        If .Attachments.Count = 0 Then
            MsgBox "Aucun fichier à envoyer .." & vbLf & "Abandon de l'envoi", vbCritical
            Exit Sub
        Else
            .Subject = " cei GRTgaz"
            .To = Range("bs2")
            .Body = Range("bw17")
            .Display True
            On Error Resume Next
            If .sent Then
                MsgBox " ENVOI DU MAIL EN COURS ", vbInformation, "cei"
            Else
               MsgBox "Envoi Annulé", vbCritical
            End If
        End If
    End With
End Sub
 

Discussions similaires

Réponses
7
Affichages
294