XL 2016 Validation ou refus de formulaire avec envoie de mail Outlook

Moireau

XLDnaute Nouveau
Bonjour à tous,

Je souhaite via le formulaire ci-joint envoyé un email outlook :
- Si validation envoie email avec Objet Demande validée
- Si refus envoie émail avec Objet demande refusée

Si joint le fichier.

Par avance merci pour votre aide.

Maud
 

Pièces jointes

  • Formaulaire de demande de retour ou d'annulation1.xlsx
    67.6 KB · Affichages: 14

Valtrase

XLDnaute Occasionnel
Salut le fil
Juste un petit rajout au code de Yaloo
Vérifie si Outlook est ouvert sinon on l'ouvre ce code n'est pas de moi, à mettre avant de créer l'Item d'Outlook
VB:
Private Sub PreparerOutlook(ByRef oOutlook As Object)
'par Excel-Malin.com ( https://excel-malin.com )
'Ce code vérifie si Outlook est prêt à envoyer des emails... Et s'il ne l'est pas, il le prépare.

    On Error GoTo PreparerOutlookErreur


    On Error Resume Next
    'vérification si Outlook est ouvert
    Set OutApp = GetObject(, "Outlook.Application")

    If (Err.Number <> 0) Then                                   'si Outlook n'est pas ouvert, une instance est ouverte
        Err.Clear
        Set OutApp = CreateObject("Outlook.Application")
    Else                                                        'si Outlook est ouvert, l'instance existante est utilisée
        Set OutApp = GetObject("Outlook.Application")
        OutApp.visible = True
    End If
    Exit Sub

PreparerOutlookErreur:
    MsgBox "Oups..." & vbNewLine & "Nous n'avons pas pu charger Outlook !"
End Sub
 

Yaloo

XLDnaute Barbatruc
Bonjour Maud,

Oui quelque soit le nom de ton fichier ça fonctionne.
Il faut bien l'enregistrer en xlsm (extension fichier avec macro).
Pour joindre le fichier après
.Attachments.Add
il faut que le nom du fichier corresponde à la réalité, sinon il ne pourra pas le trouver.

Martial
 

Discussions similaires

Réponses
17
Affichages
1 K