Wie ein ausgewähltes Bild in Outlook-Mail-Körper mit VBA beschneiden

Question

brauche ich VBA-Code für Ernte Bild in Outlook Mail Körper Hat Code jemand bitte

Answer 1

Nach 5 Minuten zu suchen auf Google mit mir teile ich folgende gefunden https://www.experts-exchange.com/questions/27768384/Outlook-macro-to-resize-picture-s.html Link

zusammenzufassen obwohl dies sollten Sie (nicht getestet) helfen:

Dieses Makro wird alle Bilder die Größe, auch in Ihrer Unterschrift (falls vorhanden), in der aktuell geöffneten Nachricht auf 75% ihrer Höhe und Breite.

Folgen Sie diesen Anweisungen, um den Code zu Outlook hinzuzufügen.

1. Starten Sie Outlook
2. Drücken Sie ALT + F11, um das Visual Basic-Editor zu öffnen
3. Wenn nicht bereits erweitert, erweitern Sie Microsoft Office Outlook Objekte
4. Wenn nicht bereits erweitert, erweitern Module
5. Wählen Sie ein vorhandenes Klicken Sie mit der rechten Maustaste auf Module und wählen Sie Einfügen> Modul.
6. Kopieren Sie den Code aus dem Code-Snippet und fügen Sie ihn in den rechten Bereich der VB-Editor-Fenster Outlook
7. das Diskettensymbol in der Symbolleiste klicken, um die Änderungen
8. Schließen Sie den VB-Editor

zu sparen

So fügen Sie dem QAT eine Schaltfläche hinzu, um das Makro mit einem einzigen Mausklick auszuführen. Outlook 2010. http://www.howto-outlook.com/howto/macrobutton.htm#qat

Sub ResizeAllPicsTo75Pct() 
    Const wdInlineShapePicture = 3 
    Dim olkMsg As Outlook.MailItem, wrdDoc As Object, wrdShp As Object 
    Set olkMsg = Application.ActiveInspector.CurrentItem 
    Set wrdDoc = olkMsg.GetInspector.WordEditor 
    For Each wrdShp In wrdDoc.InlineShapes 
     If wrdShp.Type = wdInlineShapePicture Then 
      wrdShp.ScaleHeight = 75 
      wrdShp.ScaleWidth = 75 
     End If 
    Next 
    Set olkMsg = Nothing 
    Set wrdDoc = Nothing 
    Set wrdShp = Nothing 
End Sub