Buongiorno,
Leggendo vari topic di questo sito (veramente ricco di contenuti, complimenti!) ho copiato le due seguenti macro per inviare email da excel. Esse permettono, semplicemente andando con il cursore su una determinata cella excel, di caricare una email precompilata con l'indirizzo email del destinatario, l'oggetto e il testo dell'email. A me servirebbe che in automatico tale email precompilata andasse nella cartella "email da spedire più tardi". Uso thunderbird e non so se è utile come informazione, lo shortcut per attivare tale funzione è control+shift+return.
Ecco la prima macro che ho inserito nell'editor:
Public Dest, Oggetto, CorpoM As String
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 Long
Sub Macro_Flash()
Dim URL As String
URL = "mailto:" & Dest & "?subject=" & Oggetto & "&body=" _
& Replace(CorpoM, Chr(10), "/" & vbCrLf & "\")
URL = Left(URL, 2025)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
End Sub
Ed ecco invece la seconda che ho inserito nel codice del singolo foglio excel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
Dest = Target.Value
Oggetto = Range("D" & Target.Row).Value
CorpoM = Range("F" & Target.Row).Value
Macro_Flash
End Sub
Un saluto,
Max