Enviar email quando Data de Envio for igual a Data Actual
Pretende-se com este código que quando a Data de Envio for igual a data em que nos encontramos é enviado um email ao destinatário. O código pesquisa todos os registos e envia para cada email onde a condição da data for a data actual. Código: Public ws As Worksheet Public iCount As Integer ' String used to count exist records Public lastrow As Long ' String used to detect last used row to add next record Private Sub cmdAdd_Click() Dim TClientID As Integer iCount = Application.WorksheetFunction.CountIf(Range("A1:A10000"), "C*") With ws.UsedRange lastrow = .Rows(.Rows.Count).Row End With TClientID = ws.Range("A" & lastrow).Value 'Select new row to add record ws.Range("A" & lastrow + 1).Select ...