डिफ़ॉल्ट रूप से आउटलुक में सीमा दौर छवियों को कैसे रखें

Question

यहां कुछ ऐसा है जो महीनों तक मुझे परेशान कर रहा है, यदि वर्षों से नहीं। जब मैं किसी छवि को Outlook ईमेल में पेस्ट करता हूं, तो इसकी कोई सीमा नहीं होती है। मैं तस्वीर पर राइट-क्लिक करके और प्रारूप चित्र चुनकर इन्हें जोड़ सकता हूं, और शायद ऐसा करने के लिए एक टूल भी है। मेरा सवाल है: क्या यह सुनिश्चित करने का एक तरीका है कि सभी चिपकाए गए चित्रों की सीमाएं हैं? अगर Outlook के लिए सीएसएस स्टाइल शीट थी, तो मैं इसे यहां कर सकता था; या शायद कहीं एक सेटिंग है?

अग्रिम धन्यवाद!

Answer 1

आप एक वीबीए मैक्रो (प्लस कुंजी शॉर्ट-कट) प्रदान करने पर विचार कर सकते हैं।

Sub ChangeSelectedExample() 
    Set insp = Application.ActiveInspector 
    If insp.CurrentItem.Class = olMail Then 
     Set mail = insp.CurrentItem 
     If insp.EditorType = olEditorHTML Then 
      txt = ActiveInspector.HTMLEditor.Selection.CreateRange.Text 
        ActiveInspector.HTMLEditor.Selection.CreateRange.Text = txt & "<hello world 1>" 
     ElseIf insp.EditorType = olEditorWord Then 
      txt = insp.CurrentItem.GetInspector.WordEditor.Application.Selection.Text 
        insp.CurrentItem.GetInspector.WordEditor.Application.Selection = txt & "<hello world 2>" 
     Else 
      MsgBox ("not supported mail format") 
     End If 
    Else 
     MsgBox ("not supported view type") 
    End If 
End Sub 

Answer 2

मैं एक Word 2010 मैक्रो छवियों के लिए एक सीमा कहते हैं और उन्हें केंद्र मिल गया है: सुनिश्चित नहीं हैं कि यह कैसे छवि सीमाओं के लिए काम करता है, लेकिन के लिए ईमेल पाठ यहाँ चयनित एक सरल उदाहरण है

Sub AddBlueBorderAndCenterImages() 
    Dim oIshp As InlineShape 
    Dim oshp As Shape 

    For Each oIshp In ActiveDocument.InlineShapes 'in line with text 
     With oIshp.Borders 
      .OutsideLineStyle = wdLineStyleSingle 
      .OutsideLineWidth = wdLineWidth025pt 
      .OutsideColor = RGB(0, 112, 192) 
     End With 
     oIshp.Select 
     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 
    Next oIshp 

    For Each oshp In ActiveDocument.Shapes 'floating with text wraped around 
     With oshp.Line 
      .Style = msoLineSingle 
      .Weight = 0.25 
      .ForeColor.RGB = RGB(0, 112, 192) 
     End With 
    Next oshp 

    Selection.HomeKey Unit:=wdStory 'go back to top of doc 
End Sub 

मैंने इसे Outlook में अपनाने का प्रयास किया है, मुख्य बात Outlook आइटम से Word के ActiveDocument को प्राप्त करने का प्रयास कर रही है। ,

Sub AddBlueBorders() 
    Set insp = Application.ActiveInspector 
    If insp.CurrentItem.Class = olMail Then 
     Set mail = insp.CurrentItem 
     If insp.EditorType = olEditorWord Then 
      Set wordActiveDocument = mail.GetInspector.WordEditor 

      For Each oIshp In wordActiveDocument.InlineShapes 'in line with text 
       With oIshp.Borders 
        .OutsideLineStyle = wdLineStyleSingle 
        '.OutsideLineWidth = wdLineWidth025pt ' error: one of the values passed to this method or property is out of range 
        .OutsideColor = RGB(0, 112, 192) 
       End With 
      Next oIshp 

      For Each oshp In wordActiveDocument.Shapes 'floating with text wraped around 
       With oshp.Line 
        .Style = msoLineSingle 
        .Weight = 0.25 
        .ForeColor.RGB = RGB(0, 112, 192) 
       End With 
      Next oshp 

     'ElseIf insp.EditorType = olEditorHTML Then 
     'Something else here, maybe using css? 

     End If 
    End If 
End Sub 

किसी कारण से यह मैं अपने हस्ताक्षर में एक कंपनी के लोगो के लिए एक सीमा नहीं जोड़ता है, हो सकता है, क्योंकि यह एक पाद लेख में बताया गया है:

तो यहाँ

आउटलुक संस्करण (किसी भी केंद्रित के बिना) है या अन्य दस्तावेज़ भाग।/ईमेल में जोड़

यह एक डिफ़ॉल्ट नहीं है और यह स्वचालित रूप से चित्रों के रूप में वे चिपके हुए हैं के लिए सीमाओं को जोड़ने नहीं है। आपको अभी भी इस मैक्रो को बटन या कुंजी शॉर्टकट से जोड़ना होगा। लेकिन उम्मीद है कि यह 4 महीने बाद भी मदद करेगा।

थोड़ा से http://en.allexperts.com/q/Microsoft-Word-1058/Word-resize-pictures.htm