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

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou