XL 2013 VBA - Pb sur macro mail avec PJ

[Arnaud81]

Bonjour,

J'ai un pb sur ma macro sur la partie pièce jointe.

J'ai un tout nouveau PC et je ne peut pas activer la référence Outlook.library

On m'a donc conseillé de créer les objets.

Par contre, je suis bloqué sur le "Set myAttachments = oBjMail.Attachements"

Une idée ?

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As Object
Dim oBjMail
Dim Nom_Fichier As String
Dim cel As Range
Dim myAttachments


For Each cel In Range("D2" & Range("D" & Application.Rows.Count).End(xlUp).Row)
If cel.Value <> "" Then

Set ObjOutlook = CreateObject("Outlook.Application")

Set oBjMail = ObjOutlook.Createitem(olMailItem)

Set myAttachments = oBjMail.Attachements


myAttachments = "C:\server.txt"

With oBjMail
.To = cel.Offset(-1, 0).Value ' le destinataire
.Subject = cel.Offset(-1, 0).Value ' l'objet du mail
.Body = cel.Offset(-1, 0).Value 'corps du mail
.myAttachments.Add "C:\server.txt" ' ou Nomfichier
'.Send
End With
Set oBjMail = Nothing

End If
Next cel

Set ObjOutlook = Nothing
End Sub