Hades60250
XLDnaute Nouveau
Bonjour le forum!
J'ai créé un UserForm dans Excel pour simplifier la saisie des mails.
Le code fonctionne mais je souhaiterais que certaines valeurs saisies dans les texbox apparaissent en gras dans le mail.
J'ai essayé d'insérer un bloc With comme suit:
With dt.Value
Font.Bold = true
mais ça ne fonctionne pas...
Voici le code :
Private Sub Envoyer_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
Sheets("Mail").Range("C7").Value = Sous_traitant1.Value
Sheets("Mail").Range("C2").Value = ComboBox10.Value
MonMessage.To = Sheets("Mail").Range("C8")
MonMessage.Subject = "Urgent: Demande de prix chantier " & chantier.Value & chantierliste.Value & " - Lot: " & lot.Value
MonMessage.body = "Monsieur, " & vbCrLf & vbCrLf & "Conformément à votre demande, nous vous communiquons ci joint le dossier de consultation concernant le lot " & lot.Value & " du chantier de " & chantier.Value & chantierliste.Value & vbCrLf & vbCrLf & "Vous trouverez ci joint les éléments suivants nécessaires à la réalisation de votre offre de prix." & vbCrLf & vbCrLf & "Merci de nous transmettre votre meilleure offre de prix par fax, mail ou courrier le " & dt.Value & " au plus tard." & vbCrLf & comlibre.Value & vbCrLf & "Dans l'attente" & vbCrLf & vbCrLf & "Sincères salutations" & vbCrLf & vbCrLf & Sheets("Mail").Range("B13").Value
MonMessage.Display
Set MonOutlook = Nothing
Unload Me
End Sub
Comme vous pouvez le constater les textbox et combobox sont renommés en fonction des valeurs contenues.
Celui que je souhaiterais faire apparaitre en gras est "dt".
Est ce que quelqu'un pourrait m'éclairer?
Pour info je suis sous Excel 2003 et VBA.
Merci par avance à toutes et tous !
J'ai créé un UserForm dans Excel pour simplifier la saisie des mails.
Le code fonctionne mais je souhaiterais que certaines valeurs saisies dans les texbox apparaissent en gras dans le mail.
J'ai essayé d'insérer un bloc With comme suit:
With dt.Value
Font.Bold = true
mais ça ne fonctionne pas...
Voici le code :
Private Sub Envoyer_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
Sheets("Mail").Range("C7").Value = Sous_traitant1.Value
Sheets("Mail").Range("C2").Value = ComboBox10.Value
MonMessage.To = Sheets("Mail").Range("C8")
MonMessage.Subject = "Urgent: Demande de prix chantier " & chantier.Value & chantierliste.Value & " - Lot: " & lot.Value
MonMessage.body = "Monsieur, " & vbCrLf & vbCrLf & "Conformément à votre demande, nous vous communiquons ci joint le dossier de consultation concernant le lot " & lot.Value & " du chantier de " & chantier.Value & chantierliste.Value & vbCrLf & vbCrLf & "Vous trouverez ci joint les éléments suivants nécessaires à la réalisation de votre offre de prix." & vbCrLf & vbCrLf & "Merci de nous transmettre votre meilleure offre de prix par fax, mail ou courrier le " & dt.Value & " au plus tard." & vbCrLf & comlibre.Value & vbCrLf & "Dans l'attente" & vbCrLf & vbCrLf & "Sincères salutations" & vbCrLf & vbCrLf & Sheets("Mail").Range("B13").Value
MonMessage.Display
Set MonOutlook = Nothing
Unload Me
End Sub
Comme vous pouvez le constater les textbox et combobox sont renommés en fonction des valeurs contenues.
Celui que je souhaiterais faire apparaitre en gras est "dt".
Est ce que quelqu'un pourrait m'éclairer?
Pour info je suis sous Excel 2003 et VBA.
Merci par avance à toutes et tous !