[Tasos]

Καλημέρα σε όλους!

Δημήτρη παραθέτω έναν βασικό κώδικα που στέλνει email μέσω του Microsoft Outlook:

Sub SendEmailViaOutlook()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim emailBody As String

    ' Δημιουργία Outlook αντικειμένου
    On Error Resume Next
    Set OutlookApp = GetObject(class:="Outlook.Application")
    If OutlookApp Is Nothing Then
        Set OutlookApp = CreateObject(class:="Outlook.Application")
    End If
    On Error GoTo 0

    ' Αν δεν μπορεί να ξεκινήσει το Outlook
    If OutlookApp Is Nothing Then
        MsgBox "Δεν μπόρεσε να ξεκινήσει το Outlook.", vbCritical
        Exit Sub
    End If

    ' Δημιουργία νέου μηνύματος
    Set OutlookMail = OutlookApp.CreateItem(0)

    ' Περιεχόμενο μηνύματος
    emailBody = "Αγαπητέ παραλήπτη," & vbNewLine & vbNewLine & _
                "Αυτό είναι ένα δοκιμαστικό email μέσω VBA." & vbNewLine & vbNewLine & _
                "Με εκτίμηση," & vbNewLine & "Τάσος"

    With OutlookMail
        .To = "paralipths@example.com"
        .CC = ""
        .BCC = ""
        .Subject = "Δοκιμαστικό Email από VBA"
        .Body = emailBody
        '.Attachments.Add "C:\Path\To\File.xlsx" ' Προαιρετικά: συνημμένο αρχείο
        .Display  ' Χρήση .Send για απευθείας αποστολή χωρίς προεπισκόπηση
    End With

    ' Εκκαθάριση αντικειμένων
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

Επισημάνσεις:

• Μπορείς να αλλάξεις το .Display σε .Send αν θέλεις να σταλεί το email χωρίς να εμφανιστεί πρώτα. Αν χρησιμοποιείς ms-Office 2003 δεν θα μπορέσεις να στείλεις αυτόματα E-Mail με την μέθοδο "Send".
  
• Αν το Outlook δεν είναι ήδη ανοιχτό, ο κώδικας θα το ανοίξει χωρίς να υπάρξει παράθυρο..
  
• Το Outlook ενδέχεται να εμφανίσει προειδοποίηση ασφαλείας (ανάλογα με τις ρυθμίσεις και τις πολιτικές του οργανισμού).

Αν θέλεις να προσθέσουμε HTML περιεχόμενο, να επιλέγουμε πολλούς παραλήπτες, ή να επισυνάψουμε πολλά αρχεία, μπορώ να σου το επεκτείνω.

Με εκτίμηση

Τάσος