[µo°Ý] VBA outlook ¹Ï¤ù¤å¶¹Ïµ{¦¡½X

msmplay

¥H¤Uµ{¦¡½X§@¥Î¬O±Nexcel½d³ò¡A¶K¦Üoutlook«H¥ó¤º¤å¹Ï¤ù¡A¨Ã³]©w¹Ï¤ù¤j¤p¡C
¦ýºô¸ô¤W§Ú§ä¤£¨ì¡u¤å¶¹Ï¡vªºµ{¦¡½X¡A·Q½Ð±Ð¦pªG§Ú·Q³]©w¹Ï¤ùªº¤å¶¹Ï¬°¡u¤W¤Î¤U¡v¡A¬O§_¦³VBAµ{¦¡½X¥i¹F¦¨¡HÁÂÁ¡ã

Sub test()
Dim wordDoc As Object

Range("B2:H8").Select
Selection.Copy

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = ""
    .Subject = ""
    .Display
   
    Set wordDoc = OutMail.GetInspector.WordEditor
    wordDoc.Range(Start:=0, End:=1).PasteAndFormat 13
    wordDoc.InlineShapes(1).LockAspectRatio = msoFalse
    wordDoc.InlineShapes(1).Height = 5 * 28.35
    wordDoc.InlineShapes(1).Width = 16 * 28.35

End With

End Sub