HI FRIEND
MATA HELP EKKAK ONA VBA WALIN LIYANNA PODI PROGARMME EKKAK EMAIL SEND KARANNA .
MEU CODE EKA BODY EKATA TAWA TEXT ADD KRANNA BAHA AI A
Sub Mail()
On Error Resume Next
Dim o As Object
Set o = CreateObject("Outlook.Application")
Dim omail As Object
Set omail = CreateObject("Outlook.MailItem")
Dim i As Long
For i = 2 To Range("a3000").End(xlUp).Row
Set omail = o.CreateItem(olMailItem)
With omail
.body = "Dear Sir/Madam," & vbNewLine & "The attached invoice could not be processed and the details are as follows." & vbNewLine & vbNewLine & "Sr. No | VD Code | Vendor Name | Inv Date | Invoice No | Inv Value | Currency | PO Number | Legal Entity | Return to Party | PO Creator | Returned Date | Returned By | Returned Reason | Variance | Notes | Email to be Sent| " & vbNewLine & Cells(i, 29).Value & vbNewLine & "Please note that we are holding the document and will only proceed based on your response to this email" & vbNewLine & "In case you have to send a fresh invoice replacing the above mentioned, please send it separately addressed to 'Issue Resolution Unit - AP' mentioning the above mentioned serial number. Please confirm the same via email response once the replacement invoice is dispatched to SSC." & vbNewLine & "If this does not relate to you, please let us know by return email." & vbNewLine
.To = Cells(i, 17).Value
.Subject = "INVOICE RETURN > ACTION REQUIRED TO PROCEED WITH PAYMENT -" & Cells(i, 1).Value
.Attachments.Add Cells(i, 30).Value
sPath = Environ("appdata") & "C:\Users\......\AppData\Roaming\Microsoft\Signatures\AP TEST1.rtf"
.send
End With
Next
End Sub
MATA HELP EKKAK ONA VBA WALIN LIYANNA PODI PROGARMME EKKAK EMAIL SEND KARANNA .
MEU CODE EKA BODY EKATA TAWA TEXT ADD KRANNA BAHA AI A
Sub Mail()
On Error Resume Next
Dim o As Object
Set o = CreateObject("Outlook.Application")
Dim omail As Object
Set omail = CreateObject("Outlook.MailItem")
Dim i As Long
For i = 2 To Range("a3000").End(xlUp).Row
Set omail = o.CreateItem(olMailItem)
With omail
.body = "Dear Sir/Madam," & vbNewLine & "The attached invoice could not be processed and the details are as follows." & vbNewLine & vbNewLine & "Sr. No | VD Code | Vendor Name | Inv Date | Invoice No | Inv Value | Currency | PO Number | Legal Entity | Return to Party | PO Creator | Returned Date | Returned By | Returned Reason | Variance | Notes | Email to be Sent| " & vbNewLine & Cells(i, 29).Value & vbNewLine & "Please note that we are holding the document and will only proceed based on your response to this email" & vbNewLine & "In case you have to send a fresh invoice replacing the above mentioned, please send it separately addressed to 'Issue Resolution Unit - AP' mentioning the above mentioned serial number. Please confirm the same via email response once the replacement invoice is dispatched to SSC." & vbNewLine & "If this does not relate to you, please let us know by return email." & vbNewLine
.To = Cells(i, 17).Value
.Subject = "INVOICE RETURN > ACTION REQUIRED TO PROCEED WITH PAYMENT -" & Cells(i, 1).Value
.Attachments.Add Cells(i, 30).Value
sPath = Environ("appdata") & "C:\Users\......\AppData\Roaming\Microsoft\Signatures\AP TEST1.rtf"
.send
End With
Next
End Sub
