Ora devo inviare nella stessa procedura il tutto in copia ad un secondo indirizzo e-mail, ma provando di modificare la macro attuale, non mi viene correttamente compilata...
Qui la parte di codice per l'apertura del programma di posta e per l'invio:
- Codice: Seleziona tutto
ChDir "C:\Documents and Settings\Administrator\Desktop\INVIO"
Dim Wb As Workbook
Dim sStr As String
Set Wb = ActiveWorkbook
With Wb
sStr = Replace(.Name, ".csv", ".xls")
.SaveAs Filename:=sStr, _
FileFormat:=xlWorkbookNormal
End With
Application.Dialogs(xlDialogSendMail).Show "pippo@pippo.it", "SITUAZIONE FORMATI DI MAGAZZINO"
Devo inserire un altro indirizzo, come pluto@pluto.it, ma provando ad aggiungerlo di seguito a quello esistente,separato dal ";" in Outlook non viene accettato e mi obbliga sempre a ridigitarlo.
Magari, per rendere piu' flessibile queste modifiche, pensavo di cambiare la gestione degli indirizzi tramite una apposita VARIABILE, dove imposterei gli indirizzi da riportate nel comando sotto.. ma ovviamente non so come poterlo impostare..
Grazie a tutti Voi..