Invio mail da Excel

di
robertocesarini
il
1 risposte
R
robertocesarini
Pochi posts
Iscritto da
nov, 2009
Messaggi:
1

Invio mail da Excel

Ciao a tutti,
Sono nuovo e volevo ringraziare per l'utilità di questo forum.

Vengo al punto: io ho l'esigenza di mandare una mail da excel utilizzando outlook; ho trovato lo script, in calce, su internet, ma non riesco a rendere il corpo della mail dipendente da una una cella; in altre parole se su un foglio su A1 mi viene scritto pippo vorrei che pippo, lanciato lo script, fosse "letto" e inserito nella mail inviata.

Qualche suggerimento?

Gazie in anticipo per ogni suggerimento utile

Roberto.


Sub SMAIL2()

Dim OLook As Object 'Outlook.Application
Dim MItem As Object 'Outlook.MailItem
'Dim FSend As Boolean 'Flag "Send"
Dim Inter As String, CScad As Integer
Dim MAddr As String, MSubj As String
MSubj = "Info da inviare" '<<<< Subject della mail
MAddr = "" '<<<< Destinatario
Mbody = "prova"
Set OLook = CreateObject("Outlook.Application")
Set MItem = OLook.createitem(0)
MItem.to = MAddr
MItem.Subject = MSubj
MItem.body = Mbody
MItem.send
Application.Wait (Now + TimeValue("0:00:10"))
Set OLook = Nothing
Set MItem = Nothing
End Sub

1 Risposte

  • G
    Gecsi
    Pochi posts
    Iscritto da
    ott, 2009
    Messaggi:
    22

    Re: Invio mail da Excel

    Non uso OutLook, quindi non posso provare, ma questa mi sembra la soluzione. 
    Sub SMAIL2()
Dim OLook As Object 'Outlook.Application
Dim MItem As Object 'Outlook.MailItem
Dim MAddr As String, MSubj As String

MSubj = "Info da inviare"   '<<<< Subject della mail
MAddr = "info@gecsi.it"     '<<<< Destinatario
Set OLook = CreateObject("Outlook.Application")
Set MItem = OLook.createitem(0)
With MItem
    .to = MAddr
    .Subject = MSubj
    .body = Range("A1").Value  'tuo ex Mbody
    .send
End With
Application.Wait (Now + TimeValue("0:00:10"))
Set OLook = Nothing
Set MItem = Nothing
End Sub
    Saluti e buon divertimento
Devi accedere o registrarti per scrivere nel forum
1 risposte