--> Excel tips to word Fast in Office | Learn More

Excel tips to word Fast in Office

एक्सेल से वर्ड में वर्ड से पीडीऍफ़ में और फिर पीडीऍफ़ को आउटलुक से ईमेल कीजिये | वर्ड से पीडीऍफ़ बनाने के लिए : Word code to Make Individ...

एक्सेल से वर्ड में वर्ड से पीडीऍफ़ में और फिर पीडीऍफ़ को आउटलुक से ईमेल कीजिये |


वर्ड से पीडीऍफ़ बनाने के लिए : Word code to Make Individual PDF 

Sub pdffile()
Dim i As Integer
On Error GoTo errorh:
For i = 1 To 1000

    ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\Users\LAB3\Desktop\PDFFILES\" & i & ".pdf" _
        , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=i, To:=i

Next
errorh:
If Err.Number = 80004005 Then
Err.Clear
End If
MsgBox "PDF GENERATED SUCCESSFULLY"
        
End Sub


एक्सेल से पी.डी.एफ ATTACH करके आउटलुक से ईमेल सेंड करने के लिए कोड 

Sub SendMail()
'Creating Links

Dim PATH As String

lrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To lrow

PATH = "C:\Users\LAB3\Desktop\PDFFILES\"

Sheet1.Cells(I, 4).Select

ActiveSheet.Hyperlinks.Add ANCHOR:=Selection, Address:=PATH & I - 1 & ".PDF"
Next
'SENDING MAIL
Dim OL As Outlook.Application
Dim OLMAIL As Outlook.MailItem
lrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

For I = 2 To lrow

Set OL = New Outlook.Application
Set OLMAIL = OL.CreateItem(olMailItem)

With OLMAIL

.To = Sheet1.Cells(I, 3).Value
.Subject = "Salary Slip "
.Body = "Please Find Attachment"
.Attachments.Add Sheet1.Cells(I, 4).Value

End With

OLMAIL.Send
Next
MsgBox "SENT ALL MAIL SUCCESSFULLY"
End Sub

To Download All Practice files Click here 


आशा है आपको इस ब्लॉग में EXCEL TIPS की जानकारी मिली होगी और ऐसे ही ब्लॉग पड़ने के लिए निचे दिए गए लिंक्स पे क्लिक करे |

कंप्यूटर टिप्स   ||  एक्सेल टिप्स   ||  टैली टिप्स  ||  ऑटोकैड टिप्स  || वर्ड टिप्स || एक्सेल एग्जाम  ||  टैली एग्जाम 

COMMENTS

BLOGGER: 1
  1. sir ji app great ho plz sir access data bse vba per bhi kuch bata bdee thanks

    ReplyDelete

Name

Auto-CAD Tips,7,Computer Tips,74,Coreldraw Tips,1,Excel tips in hindi,47,Mobile Tips,11,Ms-Word Tips in Hindi,6,MSCIT Exam Tips,11,Photoshop Tips,6,Tally ERP 9 Tips,10,Tech,26,
ltr
item
Learn More: Excel tips to word Fast in Office
Excel tips to word Fast in Office
https://i.ytimg.com/vi/vU4shP6d-pQ/hqdefault.jpg
https://i.ytimg.com/vi/vU4shP6d-pQ/default.jpg
Learn More
https://www.learnmoreindia.in/2020/05/excel-tips-to-word-fast-in-office.html
https://www.learnmoreindia.in/
https://www.learnmoreindia.in/
https://www.learnmoreindia.in/2020/05/excel-tips-to-word-fast-in-office.html
true
2228148344026858503
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS PREMIUM CONTENT IS LOCKED STEP 1: Share to a social network STEP 2: Click the link on your social network Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy