Inviare mail da Excel con Thunderbird

Question

Buona sera,

è possibile invare mail da excel con Thunderbird?

prelevando:

indirizzo mail,

oggetto,

(corpo del messaggio da più celle).

è possibile inserire una immagine nel corpo della mail stessa?

Grazie dell'attenzione

buon we

Pier Luigi

Answer 1

Ciao  ,

la seguente funzione (i riferimenti utilizzati al suo interno) crea una mail in formato HTML in thunderbird.

Devi solo personalizzarla per prelevare i valori che ti occorrono dal tuo foglio Excel

---

Public Function fSendThunderbird()

'http://forums.mozillazine.org/viewtopic.php?t=399230&highlight=&sid=2c05f35f3050c34449d0c0deaf16621a

'http://kb.mozillazine.org/Command_line_arguments_-_Thunderbird

'http://email.about.com/od/mozillathunderbirdtips/qt/Send_an_Image_Inline_Without_Attaching_It_in_Thunderbird.htm

'http://kb.mozillazine.org/Creating_complex_mails_with_inline_images

    Dim strCommand As String ' Command line to prepare Thunderbird e-mail

    Dim strTo As String ' E-mail address

    Dim strCC As String 'E-mail address

    Dim strBcc As String 'E-mail address

    Dim strSubject As String ' Subject line

    Dim strBody As String ' E-mail body

    Dim strAttachment As String 'Allegati

    Const cFormato As Integer = 1   '1: HTML    2:Plain Text

    strTo = "********@test.com, ****@test.com"

    strCC = "******@test.com"

    strBcc = "******@test.com"

    strSubject = "Test subject"

    strAttachment = "C:\test.doc,C:\test.png"

    strBody = "Linea 1<br>" _

        & "Linea 2" & "<br>" _

        & "Linea 3" & "<br>" _

        & "<br>" _

        & "Firma" & "<br>" _

        & "<br>" _

        & "Immagine 1 (remota)" & "<br>" _

        & "<img src=""http://static.mozillazine.org/common/images/blimp.png"" moz-do-not-send=""true"">" _

        & "<br>" _

        & "Immagine 2 (locale)" & "<br>" _

        & "<img src=""file:///c:/test.png"" moz-do-not-send=""true"">"

    strCommand = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"

    strCommand = strCommand & " -compose to='" & strTo & "'," _

        & "cc='" & strCC & "'," _

        & "bcc='" & strBcc & "'," _

        & "subject='" & strSubject & "'," _

        & "format='" & cFormato & "'," _

        & "body='" & strBody & "'," _

        & "attachment='" & strAttachment & "'"

    Call Shell(strCommand, vbNormalFocus)

End Function

---

David

Answer 2

David buona sera,

finalmente ho trovato il tempo per provare il codice proposto.

fa al caso mio.

grazie della esauriente risposta.

Pier Luigi

Answer 3

David buon giorno,

Grazie della tempestiva risposta

Purtroppo solo ora al mio rientro, prendo visione del codice proposto.

lo provo (sicuramente è OK) e ti faccio sapere.

Grazie

Cordilai saluti

Pier Luigi