İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də günün xüsusi vaxtında e-poçt göndərmək üçün necə?

Bəzi hallarda, iş zamanı müəyyən bir zamanda e-poçt göndərməsini gecikdirmə tələb oluna bilər. Bunu necə əldə edə bilirsiniz? Bu yazı Excel-də bir günün xüsusi vaxtında e-poçt göndərmə metodunu göstərmək niyyətindədir.

VBA kodu ilə bir günün xüsusi vaxtında e-poçt göndər


Yaradılmış poçt siyahısına əsasən Outlook vasitəsilə e-poçt göndərin:

The E-poçt göndər Excel üçün Kutools xidmətinin istifadəçiləri Excel-də yaradılmış poçt siyahısına əsasən Outlook vasitəsilə e-poçt göndərməyə kömək edir. Ekrana baxın:

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin


VBA kodu ilə bir günün xüsusi vaxtında e-poçt göndər


Aşağıdakı VBA kodları Excel-də bir günün xüsusi vaxtında bir e-poçt göndərməyinizə kömək edə bilər. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu 1: Excel-də günün xüsusi vaxtında e-poçt göndər

Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
 .Display
 .To = "Email address"
 .Subject = "Send email"
 'HTML for fun
 '.BodyFormat = olFormatHTML
 .HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
 '.Send
 
End With
End Sub

3. BuWorkbook (Kod) penceresini açmaq üçün sol panoda BuWorkbook'u cüt vurun. Və sonra VBA kodunu 2-nin pəncərəsinə köçürün. Ekran görüntüsünə baxın:

VBA kodu 2: Excel-də günün xüsusi vaxtında e-poçt göndər

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
    Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub

Qeyd2 kodunda, göndərmə vaxtını lazım gəldikdə göstərin.

4. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

5. klik fayl > Saxla > İnsanlar.

6. İçində Saxla dialoq qutusu, iş dəftəri saxlamaq üçün bir qovluq seçin, istədiyiniz kimi adlandırın, seçin Excel Macro Enabled İş Kitabı formatından Tipi olaraq saxla açılır siyahısı və nəhayət basın Yadda saxla düyməsini basın. Ekran görüntüsünə baxın:

İndi müəyyən vaxt gəldiyi anda müəyyən e-poçt avtomatik olaraq göstərilir. Xahiş edirik basın Göndərmək Bu e-poçt göndərmək üçün düyməsini basın.

Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    hiba · 7 months ago
    I have a list of email addresses in excel that i need to send emails to The subject and body are in cells besides the email address and i have the script below but i need to send 100 emails per 1 hour how i can and what the code the use for it ,please your support



    Sub SendEm()
    Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    Set Mail_Object = CreateObject("Outlook.Application")
    For i = 2 To lr
    With Mail_Object.CreateItem(o)
    .Subject = Range("B" & i).Value
    .To = Range("A" & i).Value

    .Body = Range("C" & i).Value
    .attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
    .Send

    '.display 'disable display and enable send to send automatically
    End With
    Next i
    MsgBox "E-mail successfully sent", 64
    Application.DisplayAlerts = False
    Set Mail_Object = Nothing
    End Sub