Envoyer des mails via un userform

Question

Bonjour,

Je souhaite via un userform envoyé un mail depuis outlook. J'arrive à créer et afficher le mail en incrémentant les TextBox16 et 17 qui contiennent des heures remplies par l'utilisateur.

En revanche je n'arrive pas à prendre en compte des conditions, la TextBox16 sera forcément rempli mais si la TextBox17 est rempli je souhaite envoyé le mail en indiquant son contenu et si elle ne l'est pas je souhaite envoyé un mail avec un corps de texte différent.

Dessous le code que j'ai fais mais qui ne fonctionne pas, le bouton ne se déclenche pas.

Private Sub CommandButton5_Click()

If TextBox17.Value = False Then

Dim Lemail As Variant

Set Lemail = CreateObject("Outlook.Application")

With Lemail.CreateItem(olMailItem)

.Subject = "Procédure Tapis Rouge"

.To = Range("C6")

.Body = "Monsieur," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Procédure tapis rouge à XXXX début " & TAPIS.TextBox16 & "z, pas d'heure de fin estimée. Information donnée par la tour de XXXX " & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Respectueusement,"

.Display

End With

ElseIf TextBox17.Value = True Then

Dim Lemail1 As Variant

Set Lemail1 = CreateObject("Outlook.Application")

With Lemail1.CreateItem(olMailItem)

.Subject = "Procédure Tapis Rouge"

.To = Range("C6")

.Body = "Monsieur," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Procédure tapis rouge à XXXX début " & TAPIS.TextBox16 & "z, fin estimée " & TAPIS.TextBox17 & "z. Information donnée par la tour de XXXX " & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Respectueusement,"

.Display

End With

End If

End Sub

Merci de votre aide.

vb95 · Answer

Bonjour

Essayez ceci

Private Sub CommandButton5_Click()

Dim DoubleCrLf as String = Chr(13) & Chr(10) & Chr(13) & Chr(10) ' 2 CrLF
    Dim Procedure as String = "Procédure tapis rouge à XXXX début " & TextBox16.Value
    Dim Information as String = "Information donnée par la tour de XXXX "
    Dim Lemail As Variant
    Set Lemail = CreateObject("Outlook.Application")
    With Lemail.CreateItem(olMailItem)
        If TextBox17.Value <> "" Then
             ' si la TextBox est vide
            .Body = "Monsieur," & DoubleCrLf & Procedure & " pas d'heure de fin estimée. " & Information & DoubleCrLf & "Respectueusement,"
        Else
            ' si une heure a été définie
            .Body = "Monsieur," & DoubleCrLf & Procedure & " fin estimée " & TextBox17.Value & " " & Information" & DoubleCrLf & "Respectueusement,"
        End If
        .Subject = "Procédure Tapis Rouge"
        .To = Range("C6")
        .Display
    End With

End Sub

Fiirza · Answer

J'ai finalement trouvé la solution en revenant à la ligne à chaque fois pour définir la valeur.

Merci

Envoyer des mails via un userform

2 réponses

Votre réponse

Discussions similaires