{"id":232,"date":"2016-07-18T16:40:37","date_gmt":"2016-07-18T20:40:37","guid":{"rendered":"http:\/\/regina-whipp.com\/blog\/?p=232"},"modified":"2016-07-04T16:40:58","modified_gmt":"2016-07-04T20:40:58","slug":"sendemail","status":"publish","type":"post","link":"https:\/\/regina-whipp.com\/blog\/?p=232","title":{"rendered":"Send eMail with Default (Outlook) Signature…"},"content":{"rendered":"

Question<\/strong>: How do I send eMail and include my Outlook signature?<\/p>\n

Answer<\/strong>:
\nCreate a Module, name it anything you like except the name of the Function.<\/p>\n

At the top of your Module under\u2026<\/p>\n

Option Compare Database
\nOption Explicit<\/p>\n

\u2026place<\/p>\n

Function streMailWithOutlookSignature()\r\n'Works in Office 2000-2016\r\n    \r\n    Dim OutApp As Object\r\n    Dim OutMail As Object\r\n    Dim strbody As String\r\n\r\n    Set OutApp = CreateObject("Outlook.Application")\r\n    Set OutMail = OutApp.CreateItem(0)\r\n\r\n    strbody = ""\r\n\r\n    On Error Resume Next\r\n\r\n    With OutMail\r\n        .Display\r\n        'Sets the From\r\n        .To = "Fill in an eMail Address"\r\n        'To use a Distribution List put the name of the list on the *To* line\r\n        '.To = "Name of Distribution List goes here"\r\n        .CC = ""\r\n        .BCC = ""\r\n        .Subject = "This is the Subject line test"\r\n        .HTMLBody = strbody & "\r\n" & .HTMLBody\r\n        'Stopped from automatically sending\r\n        '.Send\r\n    End With\r\n\r\n    On Error GoTo 0\r\n    Set OutMail = Nothing\r\n    Set OutApp = Nothing\r\n\r\nEnd Function\r\n<\/pre>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"
Question: How do I send eMail and include my Outlook signature?<\/p>\n
Answer: Create a Module, name it anything you like except the name of the Function.<\/p>\n
At the top of your Module under\u2026<\/p>\n
Option Compare Database Option Explicit<\/p>\n
\u2026place<\/p>\n
 Function streMailWithOutlookSignature() ‘Works in Office 2000-2016 Dim OutApp As Object Dim OutMail As Object Dim strbody […]<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[64,76,81,21],"class_list":["post-232","post","type-post","status-publish","format-standard","hentry","category-access-tips","tag-access-tips","tag-email","tag-outlook","tag-vba","odd"],"_links":{"self":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/232","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=232"}],"version-history":[{"count":4,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/232\/revisions"}],"predecessor-version":[{"id":1242,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/232\/revisions\/1242"}],"wp:attachment":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=232"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=232"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=232"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}