0

マクロを作成する必要がある Outlook の既存のフォームがあります。弊社事務所へデータを提出するためのフォームです。毎回、従業員番号、住所、姓名などを入力する必要があります。毎回情報をコピーして貼り付けたり入力したりする必要がないように、これらのフィールドに入力するマクロを作成するのを手伝ってくれませんか? ありがとう！

4

3 に答える 3

0 
   Sub emailfromexcel()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
    .To = "person@email.com"
    .BCC = thebcc
    .Subject = "This subject"
    .Body = "This body"
    .Display
    .Send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
  End Sub
于 2013-06-06T15:35:23.790 に答える
0 
 This HTML email creater.  Insert this into the "Visual Basic Editor in Tools>Macro then run the 
 macro "emailpictures".  It will ask for validation.

Sub emailpicture()
    Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set objOutlookRecip = objOutlookMsg.Recipients.Add("companyemail@email.com")
objOutlookRecip.Type = olTo
objOutlookMsg.Subject = "Picture"
' add "C:\picture.png as attachment to Outlook message
Set colAttach = objOutlookMsg.Attachments
Set l_Attach = colAttach.Add("C:\path\image.jpg")
' Dereference the  attachment objects before changing their properties via CDO
Set colAttach = Nothing
Set l_Attach = Nothing
'Set body format to HTML
objOutlookMsg.BodyFormat = olFormatHTML
objOutlookMsg.HTMLBody = "<HTML><head></head><BODY><center><table><tr><td><center><h1>Title </h1></center></td></tr><tr><td><center><h1>Body</h1></center><br /></td></tr><img src=""image.jpg"" alt=image><br /><br /></td></tr><tr><td><center><h3>Hope you will have a worderous day!</h3></center><br /><br /></td></tr><tr><td><center><h3>From</h3></center><br /><br /></td></tr></table></center></BODY></HTML>"
objOutlookMsg.Send
Set objOutlookRecip = Nothing
Set objOutlookMsg = Nothing
Set objOutlook = Nothing

サブ終了

于 2013-06-06T14:41:25.733 に答える