Reply to thread

Message: <blockquote data-quote="asknrk" data-source="post: 29917012" data-attributes="member: 18756">Sub SendReminderEmails()    Dim ws As Worksheet    Set ws = ThisWorkbook.Sheets("Sheet1") 'Sheet1 කියලා ඇති එක තමයි මොන sheet එකේද දත්ත තියෙන්නේ.        Dim dueDateColumn As Range    Dim emailColumn As Range    Dim cell As Range    Dim dueDate As Date    Dim today As Date        Set dueDateColumn = ws.Range("A2:A10") 'මෙතන due date column එක select කරන්න.    Set emailColumn = ws.Range("B2:B10") 'මෙතන email column එක select කරන්න.        today = Date        For Each cell In dueDateColumn        dueDate = cell.Value        If dueDate = today Then            SendEmail emailColumn.Cells(cell.Row - dueDateColumn.Row + 1, 1).Value, dueDate        End If    Next cellEnd SubSub SendEmail(recipient As String, dueDate As Date)    Dim OutlookApp As Object    Dim OutlookMail As Object        Set OutlookApp = CreateObject("Outlook.Application")    Set OutlookMail = OutlookApp.CreateItem(0)        With OutlookMail        .To = recipient        .Subject = "Due Date Reminder"        .Body = "This is a reminder that you have a task due on " & dueDate & "."        .Send    End With        Set OutlookMail = Nothing    Set OutlookApp = NothingEnd Sub<hr /> <ol> <li data-xf-list-type="ol">Macro එක Run කරන්න:<ul> <li data-xf-list-type="ul">Excel එකේ Developer tab එකට යන්න.</li> <li data-xf-list-type="ul">Macros click කරන්න.</li> <li data-xf-list-type="ul">SendReminderEmails select කරලා Run button එක click කරන්න.</li> </ul></li> </ol>මෙන්න මේ code එක run කරාම due date එක අද දවසේනම් එම due date එකේ email එකකට reminder email එකක් send කරන්නෙ. "Sheet1" කියන sheet එකේ A2cell range එක due date data එකට සහ B2cell range එක email addresses එකට භාවිතා කරන්නෙ. ඔබට අවශ්‍ය නම් මෙය adjust කරගන්න පුළුවන්.------ Post added on [DATETIME="UT"]1719665234[/DATETIME]</blockquote>

Verification: Winadiyakata thappara keeyak tibeda?

Top Bottom