Bonjour
J'ai fait une macro qui fonctionne mais je souhaiterais mettre du gras et souligné sur mes variables.
ville, date et lien de dossier
Voici mon code :
Merci d'avance
Anthony
J'ai fait une macro qui fonctionne mais je souhaiterais mettre du gras et souligné sur mes variables.
ville, date et lien de dossier
Voici mon code :
Code:
Sub envoimail(ByVal control As IRibbonControl)
Dim i As Byte
For i = 3 To 5
If Cells(i, 12).Value <> "" Then
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = Cells(i, 12).Value
.Subject = "Consultation " & Range("Ville")
.Body = situé à " & Range("Ville") & vbLf & vbLf & "La date limite est fixée au " & Range("date") & vbLf & vbLf _
& " Vous trouverez sur ce lien les éléments du dossier : " & Range("lien_dossier") & vbLf & vbLf _
& "Vous en souhaitant bonne réception, nous nous tenons à votre disposition pour toute information complémentaire " _
& vbLf & vbLf & "Cordialement "
.Send
End With
End If
Next i
End Sub
Merci d'avance
Anthony