Ciao a tutti,
vorrei creare una macro di excel che invii una convocazione di una riunione su Outlook.

Cercando un po' in giro ho visto che è necessario usare "CreateObject" e ho trovato questo codice che però dovrebbe inviare una "semplice" mail e non una convocazione.

Codice: 

Sub Inviamail(totfattall)
    
    Dim OutApp As Object
    Dim OutMail As Object    
 
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)
  
        On Error Resume Next
        With OutMail
            .To = "indirizzo@mail.it"
            .CC = ""
            .BCC = ""
            .Subject = "OGGETTO MAIL"
            .BodyFormat = olFormatHTML
            HTMLbody = "<html><head></head><body>Alla cortese attenzione di <b>DESTINATARIO</b><br>MESSAGGIO</body></html>"
            .Display   
        End With
        On Error GoTo 0
 
        Set OutMail = Nothing
        Set OutApp = Nothing

End Sub
Mi potete aiutare?

Grazie,

Diegus