PROBLEMA CON VBA PER APERTURA TEMPLATE IN OUTLOOK E POI INVIO

di
Cloro1977
il
4 risposte
C
Cloro1977
Pochi posts
Iscritto da
lug, 2018
Messaggi:
4

PROBLEMA CON VBA PER APERTURA TEMPLATE IN OUTLOOK E POI INVIO

Buongiorno a tutti,

Da poco mi sono avvicinato al VBA Coding e sto cercando di creare, su un foglio excel (versione 2016) un Tasto che mi permetta di inviare un determinato template di Outlook da me creato in precedenza

Attualmente lo script da me creato e' il seguente:

Private Sub CommandButton1_Click()
sendemail
End Sub


On Error GoTo ende
Set app = CreateObject("Outlook.application")
Set itm = app.createitem(0)
.display
.send
End With
Set app = Nothing
Set itm = Nothing


ende:
End Sub


Sub OpenFieldTripTemplate()
'Open Please NOME TEMPLATE CREATO.
Set Temp = Application.CreateItemFromTemplate( _
"C:\Users\Gabriele\Desktop\EMAIL SENDER\Templates\NOME TEMPLATE CREATO.oft")
Temp.display
Set Temp = Nothing
End Sub

In pratica vorrei che al click del tasto Outlook mi aprisse quel determinato template in modo da rendermi piu' veloce poi l'invio al destinatario che inseriro'.
Sto cercando anche uno script che mi permetta di inserire nel template Word alcuni valori presenti in determinate celle di Excel che ho associato a tale documento.

Grazie mille per l'aiuto

4 Risposte

  • M
    Marius44
    Utente Attivo
    Iscritto da
    set, 2015
    Messaggi:
    170

    Re: PROBLEMA CON VBA PER APERTURA TEMPLATE IN OUTLOOK E POI INVIO

    Ciao
    Credo ci sia qualcosa che non va in questo pezzo di codice (o hai saltato qualche riga di codice oppure ne manca un po') 
    
Private Sub CommandButton1_Click()
sendemail                            '<<<< NON vedo alcuna macro con questo nome
End Sub                               '<<<< questa riga non fa eseguire le successive

                                          '<<<< qui credo manca una riga di codice 
On Error GoTo ende
Set app = CreateObject("Outlook.application")
Set itm = app.createitem(0)
.display
.send
End With
Set app = Nothing
Set itm = Nothing
ende:
End Sub
    Ciao,
    Mario
  • C
    Cloro1977
    Pochi posts
    Iscritto da
    lug, 2018
    Messaggi:
    4

    Re: PROBLEMA CON VBA PER APERTURA TEMPLATE IN OUTLOOK E POI INVIO

    Grazie mille per l’aiuto Marius.

    Provero’ a rielaborare la Macro con i giusti consigli.
    Nella prima riga, dove mi dici che non si vede la Macro, io avevo inteso il comando solo come comando per l’apertura tramite Macro di Outlook. Stasera ci torno sopra e ci lavoro. Grazie ancora per le dritte e ti terrò aggiornato

    Grazie ancora
  • C
    Cloro1977
    Pochi posts
    Iscritto da
    lug, 2018
    Messaggi:
    4

    Re: PROBLEMA CON VBA PER APERTURA TEMPLATE IN OUTLOOK E POI INVIO

    Buona sera,

    Ho provato a modificare un pelino la Macro creandone una leggermente piu' snella

    sub OpenNOMEDELTEMPLATE()
    'Open NOMEDELTEMPLATE email template.
    Set temp = Application.CreateItemFromTemplate( _
    "PERCORSODOVESITROVAILTEMPLATE.oft")
    temp.Display
    Set Temp = Nothing

    End Sub

    Adesso ho un errore diverso.
    Mi appare RUN ERROR 438 / Object doesn't support this property or method

    Grazie per ogni aiuto
  • C
    Cloro1977
    Pochi posts
    Iscritto da
    lug, 2018
    Messaggi:
    4

    Re: PROBLEMA CON VBA PER APERTURA TEMPLATE IN OUTLOOK E POI INVIO

    Girando sul WEB ho trovato anche questo SCRIPT che ho provato a testare inserendo i dati del mio template, ma ho come errore il SUB MAIL_EXPERIMENT evidenziato in giallo

    Sub Mail_experiment()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.mailitem
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItemFromTemplate("C:\percorsodovesitrovailtemplate/nometemplate.oft")
    On Error Resume Next
    With OutMail
    .to = ""
    .CC = ""
    .BCC = ""
    .Subject = "TEST"
    .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    End Sub
Devi accedere o registrarti per scrivere nel forum
4 risposte