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:
Quindi in pratica manca "l'opzione" di inserire la firma o meglio il comando "cliccare il pulsante "Firma"" e il mittente...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
Grazie per eventuali chiarimenti.
1 saluto![]()

Rispondi quotando