Excel elektronik tablosundan Outlook hatırlatıcıları nasıl oluşturulur?
Bu makale, Excel elektronik tablosunun verilerine dayanarak Outlook hatırlatıcıları oluşturmaktan bahsediyor.
VBA kodu ile Excel elektronik tablosundan Girit Outlook hatırlatıcıları
VBA koduyla Excel elektronik tablosundan Outlook hatırlatıcıları oluşturun
Excel'den Outlook hatırlatıcıları oluşturmak istiyorsanız, lütfen aşağıdaki işlemleri yapın.
1. Bir çalışma sayfası oluşturun, aşağıda gösterilen ekran görüntüsü gibi sütun başlıklarını ve ilgili hatırlatıcı alanlarını içerir.
not: İçin meşgul durumu sütun, sayı 2 hatırlatıcının şu şekilde gösterileceği anlamına gelir: Meşgul Outlook takviminizde. Olarak değiştirebilirsin 1 (Geçici), 3 (Ofis Dışında), 4 (Başka yerde çalışmak)ya da 5 (Ücretsiz) gerek duyduğunuz kadar.
2. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
3. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayın.
VBA kodu: Excel elektronik tablosundan Outlook hatırlatıcıları oluşturun
Sub AddAppointments()
'Update by Extendoffice 20180608
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:G2")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.createitem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End Sub
not: Yukarıdaki kodda, A2: G2 randevuları temel alarak oluşturmak istediğiniz veri aralığıdır.
4. Tuşuna basın. F5 kodunu çalıştırmak için tuşuna veya Çalıştır düğmesine tıklayın. Ardından, belirli alanlara sahip tüm randevular Outlook takviminize aynı anda eklenecektir.
Ardından, sonuçları görüntülemek için görünümünüzün Takvimine gidebilirsiniz, Ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.