Reply to thread

Message: <blockquote data-quote="asknrk" data-source="post: 23599724" data-attributes="member: 18756">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 ASub Mail()On Error Resume NextDim o As ObjectSet o = CreateObject("Outlook.Application")Dim omail As ObjectSet omail = CreateObject("Outlook.MailItem")Dim i As LongFor i = 2 To Range("a3000").End(xlUp).RowSet 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 WithNextEnd Sub</blockquote>

Verification: Hathara warak wissa keeyada? (Hathara wadi karanna 20)

Top Bottom

Search

Latest ads

Reply to thread