venerdì 19 settembre 2008

VBA, utilizzare l'api shellexecute per aprire un messaggio di posta elettronica per l'invio

Il frammento di codice qui di seguito, illustra una tecnica di come aprire, un messaggio di posta elettronica, per l'invio di email.
L'utilizzo dell'api ShellExecute, permette di aprire un messaggio del client di posta elettronica predefinito.

Dichiarazione di API.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongConst SW_SHOWNORMAL = 1

Da richiamare in una funzione o evento di pulsante:

ShellExecute 10000, vbNullString, "mailto:emanuelemattei@dominio.it", vbNullString, "C:\", SW_SHOWNORMAL

Nessun commento: