email da modello outlook oft

Hai un problema con Excel?

Nuova discussione

email da modello outlook .oft
di Verde (utente non iscritto) data: 09/06/2017 20:49:50
Ciao a tutti e complimenti per la Vs. preparazione.

Come avrete intuito dal mio Nick sono nuovo del magico mondo VBA. Vengo subito al dunque:

Scopiazzando qua e là sull'internet sono riuscito (in parte a creare il codice di cui necessito per creare una macro che mi consente l'invio di email da excel tramite outlook ma (per le mie esigenze) che prenda il corpo a gli allegati della mail presenti in un modello di email creato e salvato su outlook. Funziona alla grande, tranne che per "richiamare" anche l'allegato salvato sul modello che semplicemente non appare. (ovviamente se apro il file del modello ci trovo anche l'allegato).

Sempre guardando in rete ho aggiunto un altro pezzo di codice che non aggiunge l'allegato ma l'intero file .oft (il modello email). Di conseguenza chi riceve la mail si trova in allegato un file .oft , lo apre e si ritrova la stessa mail stavolta con l'allegato vero e proprio (un .pdf).

Chiedo a voi guru, come faccio a far si che la mail abbia come allegato direttamente il pdf e non un'altra email identica nidificata?

Spero tanto di essere stato chiaro nell'esposizione della issue e spero ancor di più che ci sia qualcuno disposto a darmi una mano.

Grazie a tutti per qualsiasi consiglio.

Sub IBAN()
 
    Dim email As String
    email = InputBox("Inserisci email destinatario")
 
 
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim nomefiledaallegare As String
    Dim body As String
    Dim ricevente As String
   
    
    
 
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)
        Set otlNewMail = OutApp.CreateItemFromTemplate("C:UsersverdeDesktopmodelloemail.oft")
        Set objOutlookAttach = OutApp.CreateItemFromTemplate("C:UsersverdeDesktopmodelloemail.oft.oft") 'non sono sicuro che questa stringa serva :)
        With otlNewMail
        vTemplateBody = otlNewMail.HTMLBody
        vTemplateSubject = otlNewMail.Subject
       
        
                .Close 1
        End With
         
 
        On Error Resume Next
        With OutMail
       
            .to = email
            .CC = ""
            .BCC = ""
            .Subject = vTemplateSubject
            Do While ClientFile <> .Attachments.Add("C:UsersverdeDesktopmodelloemail.oft"): ClientFile = Dir: Loop 'questa è la stringa che qualcosa allega, anche se purtroppo la mail nidificata
                            .Send
            allegato = vtemplate
            body = vTemplateBody
            .HTMLBody = body
            .SentOnBehalfOfName = "servizioclientiamericanexpress@aexp.com"
            .Attachments = vTemplateattachments
            .Display
           
        End With
 
 
End Sub

di Vecchio Frac data: 09/06/2017 22:31:36
Suggerisco di fornire uno scenario d'esempio in modo da testare la situazione. Qualcosa nel codice mi sfugge ma non ho capito cosa :)
di Verde (utente non iscritto) data: 09/06/2017 22:41:16
Questa è l'intera macro, se la lanci excel apre il modello mail di outlook pronto per essere inviato tutto completo di destinatario, oggetto, corpo, formattazione... ma l'allegato non è il .pdf che voglio mandare, ma è il file del modello email che, all'interno contiene il .pdf

quello che viene spedito in allegato è una copia identica del messaggio che lo contiene e dentro detta copia identica oltre all'oggetto, destinatario... v'è anche un allegato: il .pdf
di Verde (utente non iscritto) data: 09/06/2017 22:46:33
In altre parole mi ritrovo in allegato alla mail un altro file che è un'altra copia della email, quella buona (quella con l'allegato che desidero mandare). E' come se la mail "buona" si trovasse allegata a una email "non buona"

Sto impazzendo!!!! ahahahahahahahah

Vuoi Approfondire?