কীভাবে "সকলকে উত্তর দিন" এবং আসল সংযুক্তিটি আউটলুকে রাখবেন?

আমি কীভাবে আউটলুকের "সকলকে জবাব দিন" সম্পাদন করতে পারলাম, তবে আসল সংযুক্তিটি আবার ফিরিয়ে পাঠাতে পারি?

email microsoft-outlook

— saar
সূত্র

এবং কে, একটি প্রাপ্ত বার্তার প্রসঙ্গে, সমস্ত । আপনি প্রেরক এবং সিসি এবং বিসিসি তালিকায় উল্লিখিত ব্যক্তিদের সমস্ত অর্থের জবাব দিতে পারেন , তবে ফরোয়ার্ড ইতিমধ্যে উল্লিখিত ব্যক্তিকে বোঝায়।

— প্যাভিয়াম

@ পাভিনুম: আমি ইংরেজি ভাষার অর্থের জন্য এখানে নেই। আপনার সাহিত্যের সামর্থ্যের জন্য ধন্যবাদ। আমি সেই কার্যকারিতাটি ব্যবহার করতে চাই। অন্যান্য কাজের ক্ষেত্রে এটি সংযুক্তি সহ সকলকে জবাব দেওয়া হবে। আপনি যদি জানেন তবে উত্তর দিন।

— সার

আপনি কি বলছেন যে আপনি "সমস্ত উত্তর দিন" তবে মূল বার্তায় থাকা কোনও সংযুক্তি বজায় রাখতে চান? আপনি কেন চান তা আমি নিশ্চিত নই। মানে, এই লোকেরা ইতিমধ্যে সংযুক্তি পেয়েছে, তাই না?

— আলে

@ অ্যাল এভারেট: হুবহু একই সংযুক্তি পুনরায় পাঠানো হচ্ছে। ম্যানেজমেন্ট থেকে কিছু অদ্ভুত প্রয়োজন;)।

— সার

মৌলিক কার্যকারিতাটিতে থাকা এই ভয়াবহতা "মিস" আজও 8 বছর পরে 2017 এ উপস্থিত রয়েছে the সংযুক্তিগুলি অন্তর্ভুক্ত না করার জন্য আমি ম্যানেজারের কাছে ডিনেজ পেয়েছি।

— জাভাদবা

উত্তর:

দৃশ্যত কিছু ভিবিএ কোড ব্যতীত নয়। ঠিক এমনটি করার জন্য আমি এখানে কিছু জিনিস পেয়েছি। ( উত্স )

বিবরণ: এই আউটলুক ভিবিএ নমুনাটি আসল সংযুক্তিগুলি সহ বর্তমানে খোলা বা নির্বাচিত বার্তার একটি উত্তর তৈরি করে এবং প্রদর্শন করে।

Sub ReplyWithAttachments()
    Dim rpl As Outlook.MailItem
    Dim itm As Object

    Set itm = GetCurrentItem()
    If Not itm Is Nothing Then
        Set rpl = itm.Reply
        CopyAttachments itm, rpl
        rpl.Display
    End If

    Set rpl = Nothing
    Set itm = Nothing
End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application

    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select

    Set objApp = Nothing
End Function

Sub CopyAttachments(objSourceItem, objTargetItem)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
   strPath = fldTemp.Path & "\"
   For Each objAtt In objSourceItem.Attachments
      strFile = strPath & objAtt.FileName
      objAtt.SaveAsFile strFile
      objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName
      fso.DeleteFile strFile
   Next

   Set fldTemp = Nothing
   Set fso = Nothing
End Sub

কোড নোট:

বর্তমানে নির্বাচিত বা প্রদর্শিত আইটেমটি ফিরিয়ে আনতে GetCurrentItem()ফাংশনটি ব্যবহার করে ।
উত্তরে সংযুক্তিগুলি অনুলিপি করতে CopyAttachments()পদ্ধতিটি ব্যবহার করে ।
আপনি যদি সবার জবাব দিতে পছন্দ itm.Replyকরেন itm.ReplyAllতবে প্রতিস্থাপন করুন।

(ওহ, এবং আমি প্রায় 30 সেকেন্ডের মধ্যে "আউটলুকের সাথে সংযুক্তিগুলির সাথে সকলের জবাব" অনুসন্ধানের জন্য ওয়েব অনুসন্ধান করে এটি পেয়েছি)।

— বীয়ার
সূত্র

@ অ্যাল এভারেট: আপনার বিস্তারিত উত্তরের জন্য ধন্যবাদ। বিশ্বাস করুন ওয়েব অনুসন্ধান আমাকে সাহায্য করেনি। খারাপ আমাকে, ভুল কীওয়ার্ড ব্যবহার।

— সার

আল এভারেটের কাছে, যিনি জিজ্ঞাসা করেছিলেন যে কেউ কেন চায় ... সর্বশেষ ব্যক্তির সংযুক্তি রয়েছে কিনা তা নিশ্চিত করার জন্য, এটি সর্বশেষতম ইমেল নয়, প্রথমটি নয় ... পাশাপাশি, এটি যথাস্থানে সম্পাদনা করা যেতে পারে এবং সবার কাছে 'ফিরে'; কেবল 'সবার কাছে এটি আবার প্রেরণ করুন' ...)

সম্ভাব্য সমাধান:

যে ব্যক্তি এই মেলটি প্রথমবার পাঠায় সে তার "প্রেরিত আইটেমগুলি" ফোল্ডারটি খুলবে, মেলটি খুলবে এবং ক্রিয়াগুলি - "এই বার্তাটি পুনরায় পাঠান ...." আবার নির্বাচন করুন।

— Crujach
সূত্র