İ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

İş kitabının Excel-də saxlandığı zaman Outlook vasitəsilə e-poçt göndərmək üçün necə?

Bu yazı, xüsusi bir iş kitabının Excel-də saxlandığında Outlook vasitəsilə e-poçt göndərməkdən bəhs edir. Tutorial göstərir kimi edin.

İş dəftəri VBA kodu ilə saxlandıqda Outlook vasitəsilə e-poçt göndər


İş dəftəri VBA kodu ilə saxlandıqda Outlook vasitəsilə e-poçt göndər


İş kitabının Excel-də saxlanıldığı zaman Outlook vasitəsilə e-poçt göndərmək üçün aşağıdakıları edin.

1. Əvvəlcə iş kitabını Excel Makro Enabled İş Kitabı olaraq saxlaya bilərsiniz. Basın fayl > Saxla. İçində Saxla informasiya qutusunu seçin, iş kitabını saxlamaq üçün bir qovluq seçin, Fayl adı qutusuna ad verin, seçin Excel Macro Enabled İş Kitabı dən Tipi olaraq saxla açılan siyahıdan və sonra basın Yadda saxla düyməsini basın. Ekran görüntüsünə baxın:

2. Yalnızca indi saxladığınız Excel Makro Enabled Çalışma kitabını açın, basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə, cüt klikləyin BuWorkbook sol barda, aşağıdakı VBA kodunu kopyalayıb yapışdırın BuWorkbook kod penceresi. Ekran görüntüsünə baxın:

VBA kodu: İş dəftəri saxlanıldığında e-poçt göndər

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Qeyd: Xahiş edirəm E-poçt ünvanı Alıcının e-poçt ünvanı ilə uyğun olaraq . = "E-poçt ünvanı"Sizə lazım olan kimi Cc, Mövzu və VBA kodunda cisim sahələrini dəyişdirin.

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

İş kitabını yeniləyincə və saxladığınızdan sonra, yenilənən iş kitabı əlavə edilmiş bir e-poçt avtomatik olaraq yaradılacaq. Xahiş edirik basın Göndərmək e-poçt göndərmək üçün düyməsini basın. Ekran görüntüsünə baxın:

Qeyd: VBA kodu yalnız Outlook proqramını e-poçt proqramı olaraq istifadə edərkən işləyir.


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.
    Chris · 6 months ago
    Hi, nice article! One thing ive been trying to achieve with this is to attach the current state of the workbook to the email.

    At the moment, it only sends the original state of the file and doesnt include any changes the user would have made.

    Any ideas on how to implement this using a macro?
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi Chris,
      The code has been updated with the problem solved, please have a try. Thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Tin Hwee Lee · 9 days ago
        Hi Chris,

        I have chanced upon the same issue.
        Currently the codes are used in the "beforesave" module.
        Which means that the email will send the spreadsheet that is before saved.

        There is another module "aftersave".
        I applied the code in this module and it worked like a charm.
  • To post as a guest, your comment is unpublished.
    Robert · 7 months ago
    Dear all, I would like to ask how to attach functional link to certain folder on server, if I paste the link, it appears in the workbook just like plain text and so it doensn't work in received e-mail, how can I turn it into link, so recepiants can click on it?
    I would like to use this way instead sending enclosed excel file.
    Thanks for advice
    • To post as a guest, your comment is unpublished.
      Grant · 1 months ago
      I put this in the body of the email and it worked for me...
      "file:///Z:\dir1\dir2\dir3\Test1.xlsm"
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi Robert,
      Sorry can’t help with this, welcome to post any question about Excel to our forum: https://www.extendoffice.com/forum.html. You will get more Excel supports from our professional or other Excel fans.
  • To post as a guest, your comment is unpublished.
    Antonio · 9 months ago
    Gracias. Consulta: utilizando esta misma rutina, como podría enviar el correo a un correo específico dependiendo el valor de otra celda?
  • To post as a guest, your comment is unpublished.
    Jermaine · 1 years ago
    How to automate the email notification in VBA based on Date range, without having to see the pop up for security permission to allow VBA to send the email.