howto-123.com

cara mudah belajar excel macro dan programming lainnya

Menu
  • Belajar Macro
  • Kamus Google Sheet
  • Kamus Macro Excel
  • Kamus Macro Outlook
  • Kamus Visual Basic
  • Materi Situs Ini
  • Rekomendasi
  • Tanya

Kamus Macro Outlook

Share this on WhatsApp

Forward Email #1

Sub Complete() ‘ Send Completed Message to support On Error Resume Next Dim oApp As Outlook.Application Dim objFolder As Outlook.MAPIFolder Set oApp = New Outlook.Application Set objNS = Application.GetNamespace(“MAPI”) Set objInbox = objNS.GetDefaultFolder(olFolderInbox) Set objFolder = objInbox.Folders(“Helpdesk”) Dim oEmail As Outlook.MailItem ‘Require that this procedure be called only when a message is selected If Application.ActiveExplorer.Selection.Count = 0 Then Exit Sub End If For Each objItem In Application.ActiveExplorer.Selection If objFolder.DefaultItemType = olMailItem Then If objItem.Class = olMail Then Response = MsgBox(“Forward message (” + item.Subject + “) to Appended Subject”) Set myForward = objItem.Forward myForward.Subject = “APPENDED SUBJECT – ” + objItem.Subject + “” myForward.Recipients.Add “Jimmy <jimmy.bharata@frieslandcampina.com>” myForward.Display ‘.Send or .Display End If End If Next End Sub

source : http://windowssecrets.com/forums/showthread.php/156624-Outlook-2010-VBA-Code-to-Forward-Email

Forward Email #2

Sub ForwardEmail(item As Outlook.MailItem)
Dim oMail As MailItem

On Error GoTo Release

Set oMail = item.Forward
oMail.Subject = oMail.Subject
oMail.HTMLBody = "Have a nice day." & vbCrLf & oMail.HTMLBody
oMail.Recipients.Add "email address here"

oMail.Send

Release:
Set oMail = Nothing

End Sub

Share this:

  • Email
  • Print
  • Twitter
  • Facebook
  • More
  • Pinterest
  • LinkedIn
  • Digg
  • Tumblr
  • Reddit
  • StumbleUpon
  • Google +1
Share this on WhatsApp

Leave a Reply Cancel reply

You must be logged in to post a comment.

Categories

  • Android
  • Coding
  • data room reviews
  • Database
  • DNS Server
  • Error Macro
  • Excel
  • Formula
  • Google Adsense
  • Google Local Guides
  • Grafik
  • hello world 2018
  • Jaringan LAN
  • Kabel LAN
  • Macro
  • Mailmerge
  • menggunakan kabel LAN
  • Outlook
  • Processmaker
  • Recovery Data
  • Server
  • Sistem komputer
  • Tools
  • Ubuntu
  • Uncategorized
  • Video
  • virtual data provider
  • VirtualBox
  • Website
  • Word
  • XAMPP
  • youtube

Pages

  • Belajar Macro
  • Kamus Google Sheet
  • Kamus Macro Excel
  • Kamus Macro Outlook
  • Kamus Visual Basic
  • Materi Situs Ini
  • Rekomendasi
  • Tanya

Recent Posts

  • Menghitung Selisih Hari, Bulan atau Tahun di Excel
  • VBA Project Unviewable
  • Menentukan Hari Dari Tanggal di Excel
  • Bagaimana Mengetahui Link yang ada di Excel
  • Access Forbidden When Create Alias Xampp

Recent Search Terms

  • buat folder di androit
  • cara buat folder di hp android
  • cara membuka file makro di Excel
  • cara mengembalikan fungsi insert si excel
  • MACRO BARIS AKHIR
  • cara menyimpan vba excel
  • cara membuat flowchart di google form
  • cara bikin folder di hp
  • cara membuat folder di hp android
  • cara mengatasi the following features cannot be saved in macro-free workbooks




howto-123.com 2021 . Powered by WordPress

loading Cancel
Post was not sent - check your email addresses!
Email check failed, please try again
Sorry, your blog cannot share posts by email.