Salve a tutti,
non riesco a immettere il mittente e la firma all'interno di una mail inviata tramite database da excell.
In pratica in Excell ho un database di clienti. Da questi tramite VBA tiro fuori un elenco in listbox dalla quale seleziono il nome di interesse a cui devo mandare l'email tramite outlookexpress. Posto il codice:
codice:
If ActiveCell.Value Like "*@*" Then
Recipient = ActiveCell.Value
Subj = "" 'OGGETTO DELL'EMAIL VA POSTO TRA LE VIRGOLETTE
Msg = "Egr. " & ActiveCell.Offset(0, -7).Value & " " & ListBox1.Text & "%0A" 'PRIMA RIGA. PER ANDARE A CAPO INSERIRE & "%0A"
Msg = Msg & "I am pleased to inform you that your annual bonus is "
HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
End If
Quindi in pratica manca "l'opzione" di inserire la firma o meglio il comando "cliccare il pulsante "Firma"" e il mittente...
Grazie per eventuali chiarimenti.
1 saluto