const Excel = require('@microsoft/office-
js/excel');
const { Mailbox } =
require('@microsoft/office-js/outlook');
async function inviaEmailOutlook() {
try {
// Controlla se l'utente è in un contesto
di Outlook
if (Office.context.mailbox.item) {
// Crea una nuova email
const message =
Office.context.mailbox.item;
// Imposta il destinatario, l'oggetto e
il corpo dell'email
message.to = [{ emailAddress:
'destinatario@example.com' }];
message.subject = 'Test Email da
Excel';
message.body = 'Ciao, questo è un
messaggio inviato tramite il nostro add-in
Excel!';
// Invia l'email
await
Office.context.mailbox.item.sendAsync(fun
ction (asyncResult) {
if (asyncResult.status ===
Office.AsyncResultStatus.Succeeded) {
console.log('Email inviata con
successo!');
} else {
console.error('Errore nell\'invio
dell\'email: ' + asyncResult.error.message);
}
});
} else {
console.error('Nessun elemento di
posta di Outlook trovato!');
}
} catch (error) {
console.error('Errore:', error);
}
}
// Chiamata alla funzione per inviare l'email
inviaEmailOutlook();
Codici JavaScript e VBA per inviare una email con Outlook da Excel
Sub InviaEmailOutlook()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim CorpoEmail As String
Dim Destinatario As String
' Crea una nuova istanza di Outlook
Set OutlookApp =
CreateObject("Outlook.Application")
' Crea un nuovo oggetto di tipo MailItem
Set OutlookMail =
OutlookApp.CreateItem(0) ' 0 = MailItem
' Imposta il destinatario, l'oggetto e il corpo
del messaggio
Destinatario =
"destinatario@example.com"
CorpoEmail = "Ciao," & vbCrLf & vbCrLf &
"Questo è un messaggio inviato tramite VBA
da Excel!" & vbCrLf & vbCrLf & "Cordiali
saluti"
With OutlookMail
.To = Destinatario ' Destinatario
.Subject = "Test Email da Excel" '
Oggetto
.Body = CorpoEmail ' Corpo dell'email
.Send ' Invia l'email
End With
' Messaggio di conferma
MsgBox "Email inviata con successo!",
vbInformation
End Sub
Javascript
VBA
