|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
16-04-2015, 13.31.40 | #1 |
Newbie
Registrato: 21-10-2014
Messaggi: 12
|
invio e-.mai
Ho creato questo codice per inviare una e-mail tramite un pulsante di comando sull'userform1 come posso aggiungere in allegato la stessa userform1 con i dati ( in poche parole devo inviare come e-mail la userform1 cliccando sul pulsante di comando) Private Sub CommandButton4_Click() Dim OutApp As Object Dim OutMail As Object Dim EmailAddr As String Dim Subj As String Dim BodyText As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = "pierpaolo.@xx.com" .CC = "" .BCC = "" .Subject = "elenco livelli bunker" .Body = "Questo è il testo della e-mail" .Display End With Set OutMail = Nothing End Sub |
16-04-2015, 14.55.25 | #2 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: invio e-.mai
.Attachments.Add ?
Tratto da qui, anche se trattasi di Access:http://accesstips.weebly.com/1/post/...o-outlook.html
___________________________________
Practice feeds Skill,Skill limits Failure,Failure enhances Security,Security needs Practice |
16-04-2015, 15.07.04 | #3 | |
Newbie
Registrato: 21-10-2014
Messaggi: 12
|
Rif: invio e-.mai
Quota:
te ne sarei grado |
|
16-04-2015, 16.54.00 | #4 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: invio e-.mai
Se tu vuoi spedire la Userform non lo puoi fare così come la vedi a video, devi convertirla in pdf e poi inviarla.
Per fare questo si dovrebbe sapere che SO hai installato e la versione di Office che usi, inoltre se hai una stampante virtuale per la creazione del pdf. un codice di esempio potrebbe essere questo Sub prova() Codice:
Dim pippo As Object Set pippo = CreateObject("Wscript.Network") pippo.SetDefaultPrinter "Tua stampante pdf" Set pippo = Nothing UserForm1.PrintForm End Sub Codice:
pippo.SetDefaultPrinter "Tua stampante di sistema" Set pippo = Nothing
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
16-04-2015, 18.18.14 | #5 |
Newbie
Registrato: 21-10-2014
Messaggi: 12
|
Rif: invio e-.mai
ciao Alessandra
In allegato il file che sto preparando, Anzichè inviare la userform1 via e-mail come posso inviare solo il foglio di lavoro Ti mando il file originario tieni presente che i dati di excel sono collegati al server di lavoro perquesto non li vedi attivi |
16-04-2015, 22.51.59 | #6 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: invio e-.mai
inviare il foglio di lavoro è la via più semplice, io copierei i dati del foglio in un altro file, così non alleghi il progetto vba o altre routine, poi visto che usi Outlook puoi usare questo codice (non testato)
Codice:
Sub prova1() Dim App_Out, email As Object Dim Nfile As String Nfile = "C:\Users\..............\File1.xls" ' Inserisci il percorso del file ActiveSheet.Select ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveWorkbook.SaveAs FileName:=Nfile, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False Set App_Out = CreateObject("Outlook.Application") Set email = App_Out.CreateItem(0) With email .to = "" .CC = "" .BCC = "" .Subject = "Invio Email" .Body = "" .Attachments.Add ActiveWorkbook.FullName .Display End With Set email = Nothing Set App_Out = Nothing End Sub nel codice devi inserire il nome e percorso corretto del file in cui vuoi copiare i tuoi dati e sarà quello che spedirai.
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
17-04-2015, 16.57.23 | #7 |
Newbie
Registrato: 21-10-2014
Messaggi: 12
|
Rif: invio e-.mai
Ciao Alessandra
come sempre gentilissima, ti confermo che funziona grazie |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
[openoffice calc] un solo numero per cella e senza premere INVIO... | torakiki78 | Office suite | 3 | 09-10-2009 14.21.12 |
Gestore invio fax per sostituire Symantec WinFax Pro 9 | sberla54 | Software applicativo | 11 | 21-09-2009 16.21.30 |
[Office 2007 SP1] Invio email | scorpions78 | Office suite | 1 | 01-09-2008 10.49.06 |
modem wytek | sal21 | Hardware e Overclock | 2 | 20-04-2004 08.41.54 |
[help]Problemi di installazione di più OS | berserk_gatsu | Windows 7/Vista/XP/ 2003 | 2 | 22-11-2003 19.33.23 |