Exemple message en VBA dans Outlook

[Lone-wolf]

Voici un exemple d'écriture de message directement en VBA.
Si cet exemple à déjà été montré, pourriez-vous le supprimer s.v.p.

Private Sub Image3_Click()
  Dim olapp As New Outlook.Application
    Dim Msg As MailItem
    Dim cell As Range
    Dim strcc As String
    Dim strline As String
    Dim Chemin
    ChDrive "D"
    ChDir ("D:\Dossiers Excel\Formulaires\Recherche Contacts\Pdf-doc\")
    
    strline = "Bonjour à tous," & vbLf & vbLf  'vbLf = retour à la ligne.
    strline = strline & "Recevez ci-joint le document cité en pièce jointe." & vbLf & vbLf
    strline = strline & "Veuillez l'imprimer et l'apporter au prochain cours, qui aura lieu " & vbLf
    strline = strline & "à CityPark - Loesch-les-Bains - Salle Mars, le 6 mai 2010 à 9h 15." & vbLf & vbLf
    strline = strline & "Le cours sera tenu par Monsieur Marc Jolinard, responsable des projets Citypark." & vbLf
    strline = strline & "N'oubliez pas que vous êtes tenus d'assister au cours sous peine de sanction." & vbLf & vbLf
    strline = strline & "Dans l'intervalle, recevez, Mesdames, Messieurs, mes meilleures salutations." & vbLf & vbLf & vbLf & vbLf
    strline = strline & "Daniel Jolimond"
    
    Set olapp = New Outlook.Application
    Set Msg = olapp.CreateItem(olMailItem)
For Each cell In ThisWorkbook.Sheets(1).Range("F3:F102")
        strcc = strcc & cell.Value & ";"
     Next
    Msg.To = TextBox6 'premier NOM de la liste
    Msg.cc = ""
    Msg.BCC = strcc ' NOMS suivants
    Msg.Subject = "Cours Gestion de Projet"
    Msg.Body = strline
    Chemin = Application.GetOpenFilename("*.pdf, *.pdf")
If VarType(Chemin) <> 11 Then
Msg.Attachments.Add Chemin
End If
Msg.Display
End Sub

Resultat en image:

 

[datacell33]

Re : Exemple message en VBA dans Outlook

Parfait, très bon tuto !
Par contre, je n'aurais pas écrit :

Dim olapp As New Outlook.Application

et

Set olapp = New Outlook.Application

La première ligne suffit pour instancier Outlook je pense.