2 Cara Mudah Mengonversi Email dengan Cepat ke Undangan Rapat di Outlook

Jika Anda ingin mengubah email Outlook menjadi undangan rapat, Anda dapat merujuk ke postingan ini. Di sini kami akan membagikan 2 pendekatan cepat kepada Anda.

Saat Anda menerima email yang berisi banyak informasi tentang rapat yang akan dijadwalkan, Anda mungkin ingin segera membuat rapat langsung dari email ini. Dalam situasi ini, Anda dapat menggunakan salah satu dari 2 metode berikut sesuai kebutuhan Anda.

Metode 1: Konversi tanpa Lampiran Email Asli

1. Untuk memulainya, pilih email yang Anda inginkan.
2. Kemudian, klik tombol "Rapat" di grup "Tanggapi" pada tab "Beranda".
3. Sekaligus akan muncul undangan rapat, seperti terlihat pada gambar berikut.

Catatan:

• Artinya, jika email asli memiliki lampiran, lampiran tersebut tidak akan disalin ke rapat.
• Dan, seperti yang Anda lihat, isi rapat berisi header email asli, seperti pengirim atau penerima asli, dan sebagainya.

Jika Anda ingin lampiran email asli dapat disalin ke rapat dan header email asli dapat dikecualikan, Anda dapat menggunakan Metode 2.

Metode 2: Konversi dengan Lampiran Email Asli

1. Sebagai langkah awal, tekan “Alt + F11” untuk mengaktifkan editor VBA Outlook.
2. Kemudian, salin kode berikut ke dalam proyek atau modul.

Sub ConvertEmailtoMeeting()
    Dim objMail As Outlook.MailItem
    Dim objMeeting As Outlook.AppointmentItem
    Dim objAttachment As Outlook.Attachment
    Dim strFilePath As String
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.currentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objMeeting = Outlook.Application.CreateItem(olAppointmentItem)
 
    'Copy Attachments
    If objMail.Attachments.Count > 0 Then
       For Each objAttachment In objMail.Attachments
           strFilePath = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
 
           objMeeting.Attachments.Add strFilePath
 
           Kill strFilePath
       Next
    End If
 
    With objMeeting
        .Subject = objMail.Subject
        'Exclude Original Email Header
        .Body = objMail.Body
        .MeetingStatus = olMeeting
        .Display
    End With
End Sub

3. Setelah itu, keluar dari editor dan tambahkan makro ini ke Quick Access Toolbar (QAT).
4. Terakhir, pilih atau buka email dan klik tombol makro di QAT.
5. Sekaligus, undangan rapat akan muncul, seperti yang ditunjukkan pada tangkapan layar di bawah ini. Lampiran email asli disertakan dan tidak ada header email asli di badan.

Selesaikan Masalah Outlook

Meskipun Outlook adalah klien email berfitur lengkap, ia tetap tidak dapat menghilangkan kelemahan fatal yaitu kerentanannya. Dengan kata lain, ia mudah diretas. Ini juga berarti bahwa data Outlook Anda selalu dalam bahaya. Dalam keadaan ini, tindakan yang paling penting dan mendesak adalah melakukan pencadangan data Outlook secara teratur. Selain itu, bijaksana untuk memiliki perangkat lunak pencadangan yang andal. Perbaikan Outlook alat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk korupsi sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com