Hello Everyone,
i want VBA code for Compose a Mail In Outlook from Excel Data.
To:
CC:
Subject:
Title: Same Format what i Have in Excel Format Range (B5:N28)
Excel Version : 2010
Outlook Version : 2010
Request to help
Hello Everyone,
i want VBA code for Compose a Mail In Outlook from Excel Data.
To:
CC:
Subject:
Title: Same Format what i Have in Excel Format Range (B5:N28)
Excel Version : 2010
Outlook Version : 2010
Request to help
Just included Rondebruin VBA code in your file.
If your problem is solved, then please mark the thread as SOLVED>>Above your first post>>Thread Tools>>
Mark your thread as Solved
If the suggestion helps you, then Click *below to Add Reputation
Thank for reply
In Body of the mail received. But
Header is not coming in outlook..
can you revert
Hi Sixthsense ,
Yes, i Want total date As Picture in Outlook body.
Can be able to do
Check it out
https://www.rondebruin.nl/win/s1/outlook/bmail3.htm
Edit, woops, never saw a reply before I replied.
Maybe use this, still from Ron DeBruin site. I use it all the time.
https://www.rondebruin.nl/win/s1/outlook/bmail3.htm
Sub EmAiLtoDave() Dim Sendrng As Range, s As String, msg As String On Error GoTo StopMacro With Application .ScreenUpdating = False .EnableEvents = False End With s = Range("S5").Value msg = "Hello There" 'Note: if the selection is one cell it will send the whole worksheet Set Sendrng = Range("C6:M27") Sendrng.Select 'Create the mail and send it With Sendrng ActiveWorkbook.EnvelopeVisible = True With .Parent.MailEnvelope ' Set the optional introduction field thats adds ' some header text to the email body. .Introduction = msg With .Item .To = Range("S3").Value .CC = Range("S4").Value .BCC = "" .Subject = s .Send End With End With End With StopMacro: With Application .ScreenUpdating = True .EnableEvents = True End With ActiveWorkbook.EnvelopeVisible = False End Sub
Thank you So Much... to Everyone to Comments.
Its Working ...
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks