Email, excel, invia più tardi

[Max383]

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

[Anthony47]

Ciao Max383, benvenuto nel forum.
Non sono in grado di proporti una soluzione "diretta", e sinceramente credo che usando "mailto" non si possa nemmeno fare; d'altra parte Thunderbird per quello che ne so non ha una libreria di comandi per interfacciarsi con il vba.

Visto che non sono arrivati suggerimenti, la mia proposta e' di realizzare un "Invia dopo" su excel; nel senso che la macro di Worksheet_SelectionChange (che io trasformerei comunque in una Worksheet_BeforeDoubleClick, per evitare che partano macro solo perche' mi sono spostato in un'altra cella) scrive in una colonna libera a che ora la mail deve partire.
Poi ogni 5 minuti una macro "On Time" sonda tutte le righe del tuo foglio e se trova una mail "scaduta" (cioe' siamo oltre l'orario pianificato di invio) procede con l'invio immediato.

Questo presuppone che il file Excel rimanga aperto per tutto il tempo in cui si prevede di dover inviare mail.

Fai sapere se l'approccio e' idoneo...