Outlook'ta Bir E-postayı Hızlı Bir Şekilde Toplantı Davetine Dönüştürmenin 2 Kolay Yolu

Outlook e-postasını toplantı davetine dönüştürmek istiyorsanız, bu yazıyı inceleyebilirsiniz. Burada sizinle 2 hızlı yöntem paylaşacağız.

Planlanacak bir toplantı hakkında çok fazla bilgi içeren bir e-posta aldığınızda, doğrudan bu e-postadan hızlıca bir toplantı oluşturmak isteyebilirsiniz. Bu durumda ihtiyacınıza göre aşağıdaki 2 yöntemden birini kullanabilirsiniz.

Yöntem 1: Orijinal E-posta Ekleri Olmadan Dönüştürün

1. Başlamak için, istediğiniz e-postayı seçin.
2. Ardından “Ana Sayfa” sekmesindeki “Yanıtla” grubundaki “Toplantı” düğmesine tıklayın.
3. Hemen aşağıdaki şekilde gösterildiği gibi bir toplantı daveti görüntülenecektir.

Notlar:

• Bu sayede, orijinal e-postanın ekleri varsa, ekler toplantıya kopyalanmayacaktır.
• Ve görebileceğiniz gibi, toplantı gövdesi, orijinal gönderen veya alıcılar vb. gibi orijinal e-posta başlığı içerir.

Orijinal e-posta eklerinin toplantıya kopyalanabilmesini ve orijinal e-posta başlığının hariç tutulabilmesini istiyorsanız 2. Yöntemi kullanabilirsiniz.

Yöntem 2: Orijinal E-posta Ekleriyle Dönüştürün

1. Öncelikle, Outlook VBA düzenleyicisini açmak için “Alt + F11” tuşlarına basın.
2. Ardından, aşağıdaki kodu bir projeye veya modüle kopyalayın.

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. Bundan sonra düzenleyiciden çıkın ve bu makroyu Hızlı Erişim Araç Çubuğuna (QAT) ekleyin.
4. Son olarak, bir e-posta seçin veya açın ve QAT'deki makro düğmesine tıklayın.
5. Hemen, aşağıdaki ekran görüntüsünde gösterildiği gibi bir toplantı daveti görünecektir. Orijinal e-posta ekleri dahildir ve gövdede orijinal e-posta başlığı yoktur.

Outlook Sorunlarını Çözün

Outlook, tam özellikli bir e-posta istemcisi olmasına rağmen, savunmasızlığı gibi ölümcül bir kusurdan kurtulamıyor. Başka bir deyişle, kolayca bozulabiliyor. Bu da Outlook verilerinizin her zaman tehlikede olduğu anlamına geliyor. Bu durumda, en önemli ve zorunlu işlem, Outlook için düzenli veri yedeklemeleri yapmaktır. Ayrıca, güçlü bir yazılıma sahip olmak da akıllıca olacaktır. Outlook düzeltmesi araç, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql bozulması ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com