Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս արագ ուղարկել էլփոստը ՝ ելնելով Excel բջիջում նշված ամսաթվից:

Երբևէ փորձե՞լ եք Excel- ի բջիջում ամսաթվի հիման վրա էլ-նամակ ուղարկել: Օրինակ, ահա A սյունակի ամսաթվերի ցուցակը, և այնուհետև Դուք ցանկանում եք նամակ ուղարկել թեմայի, հաղորդագրության մարմինը ստացողին (կարող են նաև CC- ն և BCC- ն ուրիշներին), ինչպե՞ս կարող եք կարգավորել այն:

Ուղարկեք էլփոստ ՝ ելնելով VBA- ի ամսաթվից


Ուղարկեք էլփոստ ՝ ելնելով VBA- ի ամսաթվից

Excel- ում ամսաթվի հիման վրա էլ-նամակ ուղարկելու համար կարող եք միայն մակրո կոդ կիրառել:

1. Միացրեք այն թերթիկը, որը պարունակում է ձեր օգտագործած տվյալները և ամսաթիվը, և սեղմեք Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևի կոդը տեղադրեք դատարկ գրությանը: 

VBA. Ուղարկեք ըստ ամսաթվի

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

3: սեղմեք Վազում կոճակը կամ սեղմել F5 Կոդը կատարելու համար բանալին է դուրս գալիս երկխոսություն ՝ հիշեցնելու ձեզ ընտրել ամսաթվի ցուցակը: Տեսեք,
փաստաթուղթն ուղարկել ըստ ամսաթվի 1

4. Սեղմեք OK և շարունակեք նշել էլփոստի թեման, ուղարկողի էլ. Փոստի հասցեն, ստացողի էլ. Փոստի հասցեն, CC, BCC և հաղորդագրության մարմինը: Տեսեք,

փաստաթուղթն ուղարկել ըստ ամսաթվի 2 կրակոց նետը աջ փաստաթուղթն ուղարկել ըստ ամսաթվի 3 կրակոց նետը աջ փաստաթուղթն ուղարկել ըստ ամսաթվի 4
        doc սլաքը ներքև
փաստաթուղթն ուղարկել ըստ ամսաթվի 7 կրակոցի նետը մնաց փաստաթուղթն ուղարկել ըստ ամսաթվի 6 կրակոցի նետը մնաց փաստաթուղթն ուղարկել ըստ ամսաթվի 5

5: սեղմեք OK > OK մինչև վերջինը, այնուհետև էլ-նամակն ուղարկվել է:
փաստաթուղթն ուղարկել ըստ ամսաթվի 8

Նշում: ուղարկողի էլ. փոստի հասցեն պետք է լինի ձեր Outlook- ի կանխադրված հաշիվը:


Ստեղծեք փոստային ցուցակ և ուղարկեք էլ

doc ուղարկել էլ

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (14)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ ստանալ VBA Excel-ում էլ. նամակ ստեղծելու համար, երբ բջիջը փոխում է գույնը: Ես կարող եմ բանաձև օգտագործել՝ բջիջների տառատեսակը փոխելու համար՝ հիմնված համակարգչային ժամացույցի վրա, երբ ամսաթիվը մինչև ժամկետի ավարտը գտնվում է տիրույթում: Ես ներկայումս ունեմ աղյուսակ՝ 25 աշխատակցի անուններով և նրանց վարորդական իրավունքի, աշխատանքի թույլտվությունների, մուտքի/ելքի վիզայի ամսաթվերի և տարեկան մեկնարկի ժամկետի ավարտի ամսաթվերով: Որոշ ժամկետներ 30 օր են, որոշները՝ 60 օր: Ամեն անգամ, երբ ամսաթիվը մտնում է 30 (կամ 60) օրվա միջակայքը մինչև ժամկետի ավարտը, վանդակի արժեքը սովորական սևից փոխվում է թավ կարմիր տառատեսակի: Ես ուզում եմ, որ կարողանամ ինձ նամակ ուղարկել, որում նախազգուշացվում է, որ A1...A2...A3 և այլնի անձին մոտ աշխատանքային փաստաթղթի ժամկետը կլրանա: Ո՞րն է այն սցենարը, որը ես պետք է աշխատեմ՝ դա անելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, ահա մի հոդված, որը կարող է օգնել ձեզ: https://www.extendoffice.com/documents/excel/4661-excel-send-email-if-cell-is-modified.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա մոտ է ինձ անհրաժեշտին, բայց ես խրված եմ երկու խնդիրների հետ: 1-ին ես պետք է սա գործարկեմ իմ ամբողջ աշխատանքային գրքում, որն ամեն օր ավելացնում է նոր աշխատաթերթեր: 2-րդ Ինձ անհրաժեշտ է, որ այն ներառի աշխատաթերթի անունը էլ.փոստի մեջ, որպեսզի ես իմանամ, թե որ թերթիկը պետք է վճարվի: Ես ստեղծում եմ նոր տոմսեր (աշխատանքային թերթիկներ) դաշտով, որը ապագա ամսաթիվ է, երբ այդ օրը գա ինձ էլ. Շնորհակալություն օգնության համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Felicidades por el material; բայց ես չեմ գործում: Al parecer el Rango no se llena, por ende queda vacío y sale de la rutina:

Ալգունա ուղղում?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
holagracias por tu ayuda...tengo una konsulta.....en la formula Set xRgDate = Application.InputBox("Խնդրում ենք ընտրել վերջնաժամկետի սյունակը:", "KuTools For Excel", , , , , , 8), էլ. 8 Ի՞նչ նշանակություն ունի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Տուփերը ավտոմատ կերպով չեն համալրվում այն ​​բանից հետո, երբ ես սեղմում եմ «OK»: Որտե՞ղ կարող եմ փոխել էլփոստի թեման, էլփոստի հասցեն և կոդը կոդի մեջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Bonjour j'ai copié les codes, à la validation il me demande bien les cellules concernées, mais lorsque que je valide, il ne me propose pas la suite des fenêtres, sujets, addresses եւ այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Բուտրի, կներեք, որ պատասխանում եմ անգլերենով, քանի որ ես ֆրանսերեն չգիտեմ: Կարո՞ղ եմ իմանալ ձեր օրվա ժամի ձևաչափը: Կարծում եմ, գուցե կոդը գործում է միայն datetime-ի համար՝ անգլերեն ամսաթվի ձևաչափով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Merhaba, bir excel dosyasında hatırlatıcı olarak bu konuyla ilgili VSB nin nasıl yapıldığı ile ilgili bilgiye ihtiyacım var. Örneğin boş bir hücreye bilgi girildiğinde bana mail at ya da 3 hafta sıklıkla hücreye bilgi girilip girilmediğiyle alakalı բանա բիլգի վեր.

Hertürlü bilgi ve kaynağa açığım. Şimdiden herkese teşekkür ederim..
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Մեհմեդ, ահա մի ձեռնարկ Ինչպե՞ս ուղարկել էլփոստ, եթե որոշակի բջիջ փոփոխված է Excel-ում: որ խոսում է excel ֆայլով նամակ ուղարկելու մասին՝ որպես հավելված, եթե որոշակի տիրույթի բջիջները փոփոխված են, ինչը կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Çok teşekkür ederim..
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այն չի շարունակվի հաջորդ xRgEach-ին, եթե ես մի քանի անգամ ունենամ նույն ամսաթվերը, այն մի քանի անգամ ուղարկում է նամակներ նույն օգտվողին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, դուք կարող եք հեռացնել կրկնօրինակների ժամանակները՝ օգտագործելով Remove Duplicates ֆունկցիան Data Tools-ում Տվյալների ներդիրում, այնուհետև օգտագործելով VBA-ն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,


Դա կատարյալ է, բայց երբ ես ավելացնում կամ փոխում եմ ամսաթիվը, այն չի ուղարկի Automatiklicht էլ. ինչ-որ կերպ կա՞ այս հարցը լուծելու։
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից