selezionare firma

Hai un problema con Excel?

Nuova discussione

selezionare firma
di dax.simo data: 07/07/2017 13:05:31
Ciao a tutti,

ho difficoltà nel completare un codice che genera delle mail da un elenco excel

Sub SendMiaMail()

Dim MyFileAttacments As String
Dim myApp As New Outlook.Application

MyFileAttacments = Sheets("File").Range("B" & X).Value
Dim myItem As Outlook.MailItem
Set myItem = myApp.CreateItem(olMailItem)
With myItem
.To = "indizzo mail"
.Subject = "invio"
.ReadReceiptRequested = True
.Attachments.Add MyFileAttacments
.Display

End With
End Sub

vorrei poter inserire nel testo della mail una firma che ho precedentemente creato in Outlook (chiamata "pippo" oppure "pluto", ovviamente nel codice inserisco una If che la sceglie)

potete aiutarmi?
Grazie mille

di Vecchio Frac data: 07/07/2017 14:15:14
La firma è un piccolo file di testo che si trova nella cartella Signatures.
Allego un pezzo di codice estrapolato da uno simile che ho creato per me in un mio progetto.
Il codice va inserito ovviamente prima di compilare la proprietà .HTMLBody del messaggio.
Direi che puoi inserirlo tra Set myItem e With myItem.

La firma così ottenuta è già formattata con i tag HTML, quindi puoi inserirla nel .HTMLBody del messaggio, per esempio:

.HTMLBody = "Invio quanto in allegato. Cordiali saluti < br >" & firma

    '-----------------------------------------
    'GET DEFAULT EMAIL SIGNATURE
    firma = Environ("appdata") & "MicrosoftSignaturespippo.htm"
    firma = CreateObject("Scripting.FileSystemObject").GetFile(firma).OpenAsTextStream(1, -2).ReadAll
    '-----------------------------------------

di Vecchio Frac data: 07/07/2017 14:16:40
Nota che per esigenze tipografiche ho dovuto scrivere "< br >" con spazi ma gli spazi NON ci vanno (altrimenti ottieni la scritta testuale < br >)
di dax.simo data: 10/07/2017 11:35:51
perfetto!

grazie mille

Vuoi Approfondire?