Ciao
Anthony47 in riferimento all'invio della mail in automatico vorrei arricchirla di nuove funzioni esattamente: con la macro che Tu mi hai costruito
- Codice: Seleziona tutto
Sub EmaiLritirapremio()
MsgBox " Avvia la messaggistica Outlook per l'inviodella mail"
Dim OutApp As Object, i As Long
Dim OutMail As Object, OutFile As String
Dim EmailAddr As String
Dim Subj As String
Dim BDT As String
' (a)
Set OutApp = CreateObject("Outlook.Application")
For i = 14 To 100 'In realta' usciremo prima di arrivare a 10k...
If Cells(i, "AQ").Value = "" Then Exit For
If InStr(1, Cells(i, "AP").Value, "@", vbTextCompare) > 0 Then 'Indirizzo presente in cella AP
BDT = "Caro " & Cells(i, "AM").Value & (", ") & Cells(i, "AN") & (", ") & ("Siamo lieti comunicarti che hai raggiunto ") & (", ") & Cells(i, "AO") & (" Punti ") & (", ") & ("raggiungendo cosi il premio N° ") & Cells(i, "AR") & (", pari ad €uro ") & Cells(i, "AS") 'compilazione di un testo standard di accompagnamento
'BDT = BDT & vbCrLf & " " & vbCrLf
BDT = BDT & Sheets("Hompage").Range("AU25") '<<<
BDT = BDT & vbCrLf & " " & vbCrLf
BDT = BDT & vbCrLf & " Ti Aspettiamo " & vbCrLf
BDT = BDT & vbCrLf & "Cordiali saluti" & vbCrLf '<<<
'BDT = BDT & vbCrLf & " " & vbCrLf
'BDT = BDT & vbCrLf & " " & vbCrLf
BDT = BDT & " Il Tuo Fai da TE" '<<<
' (b)
'OutFile = "C:\Users\Administrator\Desktop " '<<< L' eventuale allegato
EmailAddr = Cells(i, "AP").Value 'Indirizzo email
Subj = Range("AN8").Value '<<< Oggetto della mail cella AN8
'
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = " "
'.BCC = ""
.Subject = Subj
'.Attachments.Add OutFile '<<< Allega l' allegato
.Body = BDT
'.Display 'or use .send
.Send
End With
Application.Wait (Now + TimeValue("0:00:04"))
Application.SendKeys "%a"
'Application.Wait (Now + TimeValue("0:00:04"))
' (c)
Set OutMail = Nothing
'
End If
Next i
' (d)
Set OutApp = Nothing
'
MsgBox " Invio mail Terminato "
End Sub
quando invia la mail , nella colonna ( AT partendo dalla riga 14 ) mi scrive " Email inviata al sig. ( come stringa a seguire ) "
- Codice: Seleziona tutto
BDT = " " & Cells(i, "AM").Value & (", ") & Cells(i, "AN")
il giorno ("data oggi()")
Le funzioni che vorrei inserire sono:
Che la mail intanto deve inviarsi a condizione che nelle celle ("AN10 E AO10 " )ci sia un determinato valore numerico, e che detto valore possa essere variato dall'operatore in qualsiasi momento.
Per evitare che accidentalmente si possa inviare un'altra mail a distanza di pochi giorni ,faccia un controllo sulla differenza di giorni che andremo ad inserire nella Cella ("AL12").
Ancora una cosa ( Forse non possibile )
Se il cliente (
Cells(i, "AM").Value & (", ") & Cells(i, "AN") non esiste più,
di poter inviare una mail ignorando il controllo sulla data, Solo al cliente che nel frattempo si è aggiunto alla nuova lista ?????
Ti ringrazio
Ciao