[Meteora]

Καλησπέρα

Ο κώδικας -σε λιτή έκδοση- που θα χρειαστείς για να κάνεις αυτό που θες είναι:

Private Sub Command20_Click()
    Dim mess_body As String
    Dim appOutLook As Outlook.Application
    Dim MailOutLook As Outlook.MailItem
    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(olMailItem)

    With MailOutLook
        .BodyFormat = olFormatRichText
        .To = Me.Email_Address
        .Subject = Me.Mess_Subject
        .HTMLBody = Me.Mess_Text
        .Attachments.Add (Me.Mail_Attachment_Path)
        .Send
    End With
    Exit Sub
email_error:
    MsgBox "Πρόβλημα! " & vbCrLf & "Να το πρόβλημα:  " & Err.Description
End Sub

Το πρόθεμα me. παραπέμπει σε πεδία ενεργής φόρμας, στην οποία έχεις του κουμπί Command20 και με το πάτημα γίνεται η αποστολή. Έχω χρησιμοποιήσει τον κώδικα που σε προτείνω κατ΄επανάληψη. Ελπίζω να βοηθηθείς...

Με εκτίμηση
Νίκος