Quota:
Inviato da depurweb
salve a tutti ringrazio anticipatamente per questa guida utilissima.
Vorrei però chiedere una cosa.
non ho ben capito la seconda parte della guida, quella relativa all'invio del pdf.
quale comando devo attribure al pulsante spedisci? sbaglio o non è specificato?
|
Hai ragione, non c’è nessun riferimento al pulsante e tantomeno una riga di codice.
Al pulsante "crea pdf" devi associare il codice che vedi nella guida e metterlo in un modulo, mentre invece al pulsante "Invia pdf" devi associare il codice sotto riportato (che metti sempre in un modulo)
Codice:
Sub invia()
Form1.Show
End Sub
Form1 è la userform che vedi nella guida quella con titolo "Invia email" che ha questo codice:
Questo codice lo associ al tasto "annulla" della form
Codice:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Questo codice lo associ al tasto "invia" della form
Codice:
Private Sub CommandButton2_Click()
Sheets("email").Range("A1:A15").ClearContents
' setup variabili per creazione .bat
Sheets("email").[A1] = "CLS" 'pulisci lo schermo
Sheets("email").[A2] = "set email=" & Sheets("info").[B5] 'set variabile mittente
Sheets("email").[A3] = "set server=-server " & Sheets("info").[B4] 'set smtp
Sheets("email").[A4] = "set dest=-to " & Sheets("DDT").[G12] 'set variabile destinatario
Sheets("email").[A5] = "set subject=-s " & Sheets("info").[B6] 'oggetto messaggio
Sheets("email").[A6] = "set attach=-attach " & Sheets("info").[B8] 'allegato
Sheets("email").[A7] = "set path1=" & Sheets("info").[B9]
' comandi per blat
Sheets("email").[A8] = "@CD\"
Sheets("email").[A9] = "@CD %path1%"
Sheets("email").[A10] = "@blat -install %server% %email%"
Sheets("email").[A11] = "@blat testo.txt %dest% %subject% %attach%"
CreaBat
End Sub
Private Sub UserForm_Activate()
TextBox1 = Sheets("info").[B4] ' smtp
TextBox2 = Sheets("info").[B5] ' mittente
TextBox3 = Sheets("info").[B8] ' path file
TextBox4 = Sheets("DDT").[G12] ' destinatario
TextBox5 = Sheets("info").[B6] ' oggetto messaggio
End Sub
Private Sub CreaBat()
'creafile
Application.ScreenUpdating = False
Sheets("email").Activate
namefile = ActiveSheet.Name
numrig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
mfilehandle = FreeFile
Dim Unit, DirProg As String
Unit = Sheets("Info").[B1]
DirProg = Sheets("Info").[B2]
pathbat = Unit & DirProg & namefile & ".bat"
a = " "
Open pathbat For Output As #mfilehandle
For ct1 = 1 To numrig
dato1 = ActiveSheet.Cells(ct1, 1)
Print #mfilehandle, dato1
Next ct1
Close #mfilehandle
Sheets("DDT").Activate
Shell ("C:\Preventivi\email.bat"), 1
Form1.Hide
End Sub
PS: fai attenzione ai riferimenti di Foglio e di Range che sono presenti nel codice.