Ինչպե՞ս էլեկտրոնային նամակ ուղարկել, եթե Excel- ում լրացել է ժամկետը:
Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, եթե C սյունակի վերջնաժամկետը 7 օրից փոքր է կամ հավասար է (օրինակ, ընթացիկ ամսաթիվը 2017/9/13 է), նամակ է ուղարկվում A սյունակում նշված հասցեատիրոջը և B սյունակում նշված բովանդակությունը ցուցադրվում է էլփոստի մարմնում: Ինչպե՞ս կարող էիք անել դրան հասնելու համար: Այս հոդվածը տրամադրում է VBA կոդ, որը կօգնի ձեզ կատարել այս խնդիրը:
Ուղարկեք էլ. Նամակ, եթե ժամկետը լրացել է VBA կոդով
Ուղարկեք էլ. Նամակ, եթե ժամկետը լրացել է VBA կոդով
Խնդրում ենք վարվել հետևյալ կերպ ՝ էլփոստով հիշեցում ուղարկելու համար, եթե Excel- ում ավարտված ամսաթիվը լրացվել է:
1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:
VBA կոդ. Excel- ում փակման դեպքում էլ-նամակ ուղարկեք
Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "<br><br>"
xMailBody = "<HTML><BODY>"
xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
xMailBody = xMailBody & "</BODY></HTML>"
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End Sub
Notes: Գիծը Եթե CDate (xRgDateVal) - Ամսաթիվ <= 7 Իսկ CDate (xRgDateVal) - Ամսաթիվ> 0 Հետո VBA կոդում նշանակում է, որ ժամկետը պետք է լինի 1 օրից մեծ և պակաս 7 օրից պակաս: Դուք կարող եք փոխել այն, ինչ ձեզ հարկավոր է:
3. Մամուլ որ F5 ստեղնը ՝ կոդն աշխատեցնելու համար: Առաջինում հայտնվում է Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, խնդրում ենք ընտրել ժամկետի սյունակի տիրույթը և սեղմել այն OK կոճակ Տեսեք,
4. Հետո երկրորդը Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը հայտնվում է, խնդրում ենք ընտրել համապատասխան սյունակի տիրույթը, որը պարունակում է ստացողների էլ. փոստի հասցեները և կտտացրեք այն OK կոճակ Տեսեք,
5. Վերջինում Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք այն բովանդակությունը, որը ցանկանում եք ցուցադրել էլփոստի մարմնում, և այնուհետև կտտացրեք այն OK կոճակը:
Այնուհետև էլ. Փոստը կստեղծվի ավտոմատ կերպով նշված ստացողի, առարկայի և մարմնի կողմից նշված, եթե C սյունակում ժամկետի ավարտը պակաս է կամ հավասար է 7 օրվա: Խնդրում ենք սեղմել ուղարկել էլ.փոստը ուղարկելու կոճակը:
Notes:
1. Ստեղծված յուրաքանչյուր էլ. Նամակ համապատասխանում է ժամկետին: Օրինակ, եթե չափանիշներին համապատասխանող երեք ժամկետ կա, երեք էլեկտրոնային հաղորդագրություն կստեղծվի ինքնաբերաբար:
2. Այս կոդը չի գործարկվի, եթե չափանիշներին համապատասխանող ամսաթվեր չկան:
3. VBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ն օգտագործում եք որպես ձեր էլփոստի ծրագիր:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
- Ինչպե՞ս նամակ ուղարկել Outlook- ի միջոցով, երբ աշխատանքային գիրքը պահվում է Excel- ում:
- Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում որոշակի բջիջ է փոփոխվել:
- Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում կտտացնում են կոճակը:
- Ինչպե՞ս ուղարկել էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: