Telefonino.net network
 
| 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 » |

Torna indietro   WinTricks Forum > Software > Programmazione

Notices

Rispondi
 
Strumenti discussione
Vecchio 16-04-2015, 13.31.40   #1
f1pier
Newbie
 
Registrato: 21-10-2014
Messaggi: 12
f1pier promette bene
invio e-.mai

ho bisogno di un aiuto

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
f1pier non è collegato   Rispondi citando
Vecchio 16-04-2015, 14.55.25   #2
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.395
LoryOne ha un'aura spettacolareLoryOne ha un'aura spettacolareLoryOne ha un'aura spettacolare
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
LoryOne non è collegato   Rispondi citando
Vecchio 16-04-2015, 15.07.04   #3
f1pier
Newbie
 
Registrato: 21-10-2014
Messaggi: 12
f1pier promette bene
Rif: invio e-.mai

Quota:
Inviato da LoryOne Visualizza messaggio
.Attachments.Add ?

Tratto da qui, anche se trattasi di Access:http://accesstips.weebly.com/1/post/...o-outlook.html
puoi scrivermi la sintassi

te ne sarei grado
f1pier non è collegato   Rispondi citando
Vecchio 16-04-2015, 16.54.00   #4
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.193
Alexsandra è un gioiello raroAlexsandra è un gioiello raroAlexsandra è un gioiello raroAlexsandra è un gioiello raro
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
e poi rimetti la stampante di sistema così

Codice:
pippo.SetDefaultPrinter "Tua stampante di sistema" 
Set pippo  = Nothing
fatto questo puoi compilare la macro per spedire il pdf, inserendo nel ciclo With un .Add e anche un .Send
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Vecchio 16-04-2015, 18.18.14   #5
f1pier
Newbie
 
Registrato: 21-10-2014
Messaggi: 12
f1pier promette bene
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
Files allegati
Tipo file: rar LIVELLI BUNKER1.rar (23,4 Kb, 0 visite)
f1pier non è collegato   Rispondi citando
Vecchio 16-04-2015, 22.51.59   #6
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.193
Alexsandra è un gioiello raroAlexsandra è un gioiello raroAlexsandra è un gioiello raroAlexsandra è un gioiello raro
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
Questo codice lo inserisci in un modulo del tuo attuale file, dove estrapoli i dati e li vai a copiare in un file che hai precedentemente creato.

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 -
Alexsandra non è collegato   Rispondi citando
Vecchio 17-04-2015, 16.57.23   #7
f1pier
Newbie
 
Registrato: 21-10-2014
Messaggi: 12
f1pier promette bene
Rif: invio e-.mai

Ciao Alessandra
come sempre gentilissima, ti confermo che funziona

grazie
f1pier non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

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

Orario GMT +2. Ora sono le: 13.36.49.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.