EXCEL - creazione macro per invio automatico email

[Flash30005]

me la fai una prova così

Codice: Seleziona tutto

'.Display  'or use .send '<<<< commentata
.Send  '<<<<< non commentata
.SendKeys "%i" '<<<<< non commentata
'.Attachments.Add OutFile        '<<<<< commentata
End With
  Application.Wait (Now + TimeValue("0:00:07"))

'--- <<< senza queste righe codice
 '   Application.SendKeys "%i"       '<<<<< commentata
  '  Application.Wait (Now + TimeValue("0:00:07"))        '<<<<< commentata


E fai sapere

ciao

[ahidai]

me la fai una prova così

Codice: Seleziona tutto

'.Display  'or use .send '<<<< commentata
.Send  '<<<<< non commentata
.SendKeys "%i" '<<<<< non commentata
'.Attachments.Add OutFile        '<<<<< commentata
End With
  Application.Wait (Now + TimeValue("0:00:07"))

'--- <<< senza queste righe codice
 '   Application.SendKeys "%i"       '<<<<< commentata
  '  Application.Wait (Now + TimeValue("0:00:07"))        '<<<<< commentata


E fai sapere
ciao

Ciao Flash, ho provato e da errore di run-time '438': proprietà o metodo non supportati dall'oggetto cliccando poi debug mi evidenzia la riga:

Codice: Seleziona tutto

.SendKeys "%i" '<<<<< non commentata

Se hai bisogno di altre prove sono a disposizione, poi ti chiedo cortesemente che stringa devo inserire per ridurre ad icona il file.
Ciao.

[Flash30005]

Ok
per la prova
(strano... avevo quel codice salvato come funzionante, non avendo MsOutlook mi sono fidato dell'utente che mesi fa affermava funzionasse)

per quanto riguarda la riduzione a icona proprio non saprei...
Quindi ho pensato di registrare una macro ed ho ottenuto questo codice

Codice: Seleziona tutto

Application.WindowState = xlMinimized

capisco che il vba non è facile da imparare e memorizzare tutte le chiavi possibili,
ma non vi viene mai in mente di registrare una macro e andare a vedere il codice ottenuto?

Non bisogna mai perdersi in un "bicchiere d'acqua"!!!

ciao

[ahidai]

Ok
per la prova
(strano... avevo quel codice salvato come funzionante, non avendo MsOutlook mi sono fidato dell'utente che mesi fa affermava funzionasse)

per quanto riguarda la riduzione a icona proprio non saprei...
Quindi ho pensato di registrare una macro ed ho ottenuto questo codice

Codice: Seleziona tutto

Application.WindowState = xlMinimized

capisco che il vba non è facile da imparare e memorizzare tutte le chiavi possibili,
ma non vi viene mai in mente di registrare una macro e andare a vedere il codice ottenuto?

Non bisogna mai perdersi in un "bicchiere d'acqua"!!!

ciao

Ciao Flash e grazie ancora per l'aiuto, si certo ci ho pensato a registrare la macro, ma non ha avuto successo!!!!
Bisogna anche saper registrare le macro
Ciao e buona serata.
P.S.
dimenticavo la tua funziona!!!!! Grazie.

[Anthony47]

Funziona usando

Codice: Seleziona tutto

.Send  '<<<<< non commentata
.SendKeys "%i" '<<<<< non commentata


Cioe' con ".Send" (invece di ".Display") e SendKeys subito dopo?

Ciao

[ahidai]

Ciao Anthony funziona così ma non si attiva ".Display" cioè non si vede la finestra di Outlook

Codice: Seleziona tutto

'...
'.Display   <<<<<< commentato
.Send
End With
    Application.Wait (Now + TimeValue("0:00:07"))
    Application.SendKeys "%i"       
    Application.Wait (Now + TimeValue("0:00:07"))

In effetti come suggerito da te, solo che attivando anche ".Display" il procedimento della macro va bene ma l'email rimane in "memoria - posta in uscita" di Outlook ma non parte.
Ciao e grazie di nuovo per l'aiuto.

EDIT - Flash ore 00:11: ho modificato il post per renderlo più leggibile

[Anthony47]

Se parte con .Send e' ok cosi'; se non parte con .Display e' perche' lo shortcut per "Invia mail" non e' Alt-i.

Aggiungo una informazione che da qualche parte nella discussione e' gia' detta: va disabilitato l' uso di Word come eventuale editor delle mail. Per questo, in OL2003: Menu /Strumenti /Opzioni, tab Formato posta, togli la spunta a controllo Utilizza Microsoft Word per modificare i messaggi di posta elettronica

Ciao

[ahidai]

Un ciao a tutti.
Allora volevo un chiarimento, questa è la macro funzionante con il pc di casa, mi chiedo perchè in ufficio non mi funziona e mi da da errore di run-time '287': errore definito dall'applicazione o dall'oggetto cliccando poi debug mi evidenzia la riga: ".Send":

Codice: Seleziona tutto

Public Riga As Integer
Sub Scadenza()
UR = Worksheets("Scadenze").Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
If Range("J" & RR).Value = 0 Then
If Range("E" & RR).Value = 10 Or Range("E" & RR).Value = 5 Or Range("E" & RR).Value = 3 Or Range("E" & RR).Value = 1 Then
Range("J" & RR).Value = 1
Riga = RR
Call Invioemail
Else: Range("J" & RR).Value = 0
End If
End If
Next RR
End Sub
Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim EmailAddr2 As String
Dim Subj As String
Dim BodyText As String

'  (a)
Set OutApp = CreateObject("Outlook.Application")
IE = Riga
''compilazione di un testo standard di accompagnamento
BDT = ""    '<<<<<
BDT = BDT & vbCrLf & "Avviso di scadenza, mancano giorni: " & Range("E" & IE).Value
BDT = BDT & vbCrLf & "per ultimare la pratica: " & Range("B" & IE).Value & vbCrLf
BDT = BDT & vbCrLf & "Quando la pratica è stata completata si prega di comunicarlo via breve o via e-mail." & vbCrLf
BDT = BDT & "Per conto di Pippo"
''  (b)
Nominat = Sheets("Scadenze").Range("B1").Value
'OutFile = Range("K" & IE).Value  'Stringa per invio file
EmailAddr = Range("H" & IE).Value
If EmailAddr = "" Then GoTo NoMail
EmailAddr2 = Range("F" & IE).Value
Subj = Range("C" & IE).Value

'
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = EmailAddr2
.BCC = ""
.Subject = Subj
.Body = BDT
'.Display  'or use .send
.Send
'.SendKeys ("%(i)")
'.Attachments.Add OutFile
End With
    Application.Wait (Now + TimeValue("0:00:07"))
    Application.SendKeys "%i"        '*** QUI, non subito dopo .Display
    Application.Wait (Now + TimeValue("0:00:07"))

'  (c)
Set OutMail = Nothing

NoMail:

'  (d)
Set OutApp = Nothing

Call Riduci

End Sub
Sub Riduci()

Application.WindowState = xlMinimized

End Sub



Una buona giornata a tutti e ringrazio anticipatamente per le risposte.

[Anthony47]

Il tutto purtroppo necessita di alcune spiegazioni...
Vorrei precisare che la modalita'

Codice: Seleziona tutto

.Display
'attesa alcuni secondi
Application.SendKeys "%i"    '??? %a ???


Funziona fino a Windows XP; per OS successivi (Vista e Win 7) le impostazioni di "Controllo dell' Account Utente" (UAC) in genere impediscono l' emissione di sequenze di caratteri verso "altre applicazioni" per una diversa impostazione di protezione.
Il risultato potrebbe quindi essere che la mail viene visualizzata completamente ma non viene inviata; premendo Alt-? da tastiera (con la mail visualizzata) invece la mail parte.
Per "?" intendo il carattere che risulta sotttolineato nella icona di "Invia (mail)" presente nella barra degli strumenti della finestra della mail. Per quello che ne so in OL2003 esso e' "a" per la versione Italiana (quindi SendKeys "%a" nel codice vba), ed "s" per la versione Inglese (quindi SendKeys "%a" nel codice vba).

Il settaggio dello UAC e' modificabile all' interno di Pannello di controllo /Account utente, ma immagino si tratti di un abbassamento del livello di sicurezza per cui non lo consiglio.

In alternativa si puo' usare pero' uno script che fa la stessa cosa di Application.SendKeys:

Codice: Seleziona tutto

Set WSShell = CreateObject("WScript.Shell")
WSShell.SendKeys ("%a")  '<< Vedi testo


Sostituisce nella macro la riga Application.SendKeys "%a"
A seconda dello shortcut usato dall' applicazione potrebbe essere necessario usare una sequenza diversa da %a; vedi commento di prima.

Nelle versioni Outlook superiori a OL2003 (quindi OL2007 e OL2010), e' pero' disponibile una prestazione che consente di usare .Send senza che questo provochi la comparsa di un messaggio che chiede all' operatore di confermare l' invio automatico della mail da parte del vba (questo e' il motivo per cui si usa .Display /SendKeys); non ho queste versioni, quindi non sono in grado di segnalarvi correttamente il comando da utilizzare; la letteratura dice Menu /Tools /Trust Center /Program access, impostare "Never warn me about suspicious activity".

Immagino che ahidai abbia OL2007/2010 con questa impostazione, e sospetto che non abbia XP.

In quanto al run time error 287 penso che questo potrebbe verificarsi se l' impostazione di Outlook prevede la conferma dell' invio della mail e questa non viene data dall' utente.

A seconda del mix tra versione e SO la soluzione potrebbe essere:
OL2003 & XP: .Display e Application.Sendkeys
OL2003 & Vista o Win 7: .Display e Script
OL2007 & XP: come per OL2003 & Xp OPPURE .Send e "Never warn me about suspicious activity"
OL2007 & Vista o Win 7: .Display e Script OPPURE .Send e "Never warn me about suspicious activity"

Se con questi spunti non risolvi:
-dicci quale e' la tua combinazione di versione Applicazione e Sistema Operativo
-dicci quando crei una mail manualmente quale e' lo shortcut (Alt-carattere) con cui si comanda l' invio mail.

Ciao

[ahidai]

Ciao Anthony e grazie di nuovo per la risposta sempre esaustiva.
Allora in ufficio ho questa combinazione S.O. XP con S.P.3 e Office 2007 con S.P.3, la combinazione dei tasti per invio e-mail con Outlook 2007 è Alt+i.
Ho fatto delle prove ma senza esito positivo con "Set WSShell = CreateObject("WScript.Shell")
WSShell.SendKeys ("%i")", attivando e disattivando le varie funzioni ".Display - .Send".
Non capisco quello che ho evidenziato ed eventualmente come inserirlo nella macro: OL2007 & XP: come per Xp OPPURE .Send e "Never warn me about suspicious activity".
Ciao e buona giornata.

[Anthony47]

Se hai XP va bene l' uso di Application.SendKeys; la sequenza che funziona l' avevo data qui: viewtopic.php?f=26&t=62073&start=100#p542782
Cioe': usi ".Display" per visualizzare la mail, dopo alcuni secondi invii la sequenza "%i" (cioe' Alt-i) che da quello che hai scritto rappresenta lo shortcut per dire ad outlook "Invia la mail".
In alternativa puoi usare ".Send" per dire ad Outlook di inviare la mail, ma in questo caso Outlook dovrebbe dare un messaggio che dice circa "Qualcuno vuole inviare una mail, autorizzi?" e l' utente dovrebbe cliccare "Si"; questo messaggio puo' essere evitato se imposti Outlook per "Never warn me about suspicious activity" ("non mi allertare se vedi cose sospette"). In questo caso dovresti eliminae in toto la riga Application.SendKeys.
Altri utenti hanno usato un applicativo che si chiama ClickYes per premere automaticamente yes, non ne conosco potenzialita' e limiti.
Pero' il comportamento su OL2007 io non lo posso collaudare.

Ciao

[ahidai]

In alternativa puoi usare ".Send" per dire ad Outlook di inviare la mail, ma in questo caso Outlook dovrebbe dare un messaggio che dice circa "Qualcuno vuole inviare una mail, autorizzi?" e l' utente dovrebbe cliccare "Si"; questo messaggio puo' essere evitato se imposti Outlook per "Never warn me about suspicious activity" ("non mi allertare se vedi cose sospette"). In questo caso dovresti eliminae in toto la riga Application.SendKeys.

Ciao Anthony, ho risolto grazie alle tue indicazioni, che ho evidenziato.... Sei unico e naturalmente anche Flash
Ciao a tutti.

[ale140]

Grandi ragazzi!!!

ho seguito il discorso e sono riuscito ad inviare le mail in automatico diciamo tutto perfetto

adesso è giunto il momento di alzare la posta....
io in excel ho la seguente tabella

nome mail destinatario cc oggetto percorso none del file
aaa aaaa@aaa.it prova c:\temp aaa.pdf

adesso applicando la macro invia tutte le mail (righe) con 1 allegato pdf in questo caso aaa.pdf

vorrei arrivare ad allegare piu pdf nella stessa mail che ha per nome aaa....
cioe il programma di terzi mi crea un file aaa.pdf aaa01.pdf aaa02.pdf aaa03.pdf io voglio fare che in automatico dando come nome aaa mi alleghi tutti i suoi "simili".

grazie spero di essere stato chiaro....

[Flash30005]

Ciao Ale140 e benvenuto nel Forum

Fino ad ora non credo sia mai stata fatta questa richiesta
e dovremo escogitare qualcosa nel frattempo potrest specificare se i file hanno sempre lo stesso nome?
e se il numero dei file è sempre lo stesso.

Nel primo caso potrai creare tanti OutFile quanti sono i file da allegare esempio

Codice: Seleziona tutto

OutFile1 = "C:\temp\aaa01.pdf"
OutFile2 = "C:\temp\aaa02.pdf"
OutFile3 = "C:\temp\aaa03.pdf"
OutFile4 = "C:\temp\aaa04.pdf"
OutFile5 = "C:\temp\aaa05.pdf"

With OutMail
.To = EmailAddr
...
.Attachments.Add OutFile1
.Attachments.Add OutFile2
.Attachments.Add OutFile3
.Attachments.Add OutFile4
.Attachments.Add OutFile5


Oppure, con una macro creare un elenco dei file da inviare nel foglio di excel (colonna A)
e usare un ciclo for next

Codice: Seleziona tutto

With OutMail
.To = EmailAddr
...
For RR = 1 to UR
.Attachments.Add Range("A" & RR).value
Next RR
...

ciao

[ale140]

grazie della rapida risposta.....

allora i file sono variabili e nn si possono prevedere l 'unica cosa statica è l'inizio che è uguale alla colonna A cioè nome....
in piu in c:\temp vanno a finire tutti i file di diverse righe.... tipo aaa.pdf aaa01.pdf aaa02.pdf bbb.pdf bbb01.pdf ecc...

il primo metodo che mi hai gentilmente proposto era quello piu facile ma purtroppo nn sono cosi statico...

nel secondo credo che mi alleghi tutti i file che incontra in una unica mail e quindi nn fa al caso mio.... ci vorrebbe un controllo che dica bene controllo le prime 6 lettere (statiche) se è uguale al nome ti allego altrimenti passo...
ma nn so come fare.....

[Flash30005]

Si può fare tutto ciò che vorresti fare ma ora non capisco quali file vorresti inviare
(avevo capito tutti i file .pdf contenuti in C:\temp)

Se vuoi definire un'inizio nomefile lo possiamo fare ma indicami una cella dove applicherai questa regola.

Ciao

[ale140]

be la cella è quella del nome file la G diciamo che sono i caratteri che deve prendere in considerazione...

[Flash30005]

be la cella è quella del nome file la G

"G" al massimo potrà essere una colonna non una cella

Per non perdere tempo prezioso e trovare una soluzione veloce è opportuno essere più precisi possibile
(ora ad esempio ho perso tempo a leggere e dare questa risposta, la prossima volta eviterò)

ciao

[ale140]

figurati se ti voglio fare perdere tempo, ti allego il link all'immagine se riesco cosi capisci al volo.....

preciso che il nome dovrebbe avere sempre 6 caratteri nell immagine nn è cosi......

grazie e scusa

http://img688.imageshack.us/img688/9392/demowg.jpg

[Flash30005]

In po' più chiaro ma l'immagine fa scaturire altre domande
(perché discordante dal post precedente: invio di più file nella stessa email)

Quindi a Tizio vuoi inviare Solo il file in G2, a Caio il file in G3, etc?

Confermi? (l'accendiamo?)

Inoltre vorrei che pubblicassi la macro che dici di aver realizzato per l'invio posta e che a te funziona.

ciao