Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
email format plain text
Hi, I'm using this script for sending emails.
I need e-mails to be sent in plaint text format. Is it possible that dispalyed emails will be as plain text, but i don't wnat to chanfe the defaults in Outlook. Thanks. Sub Mail_workbook_Outlook_ZZ() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim strto As String For Each cell In ThisWorkbook.Sheets("sheet1") _ .Columns("AF").Cells If cell.Value Like "*@*" Then strto = strto & cell.Value & ";" End If Next strto = Left(strto, Len(strto) - 1) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = strto .CC = "" .BCC = "" .Subject = "" .Body = "" .Display End With Set OutMail = Nothing Set OutApp = Nothing End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
email format plain text
Hi Milos
If you want to sent plain text try this http://www.rondebruin.nl/mail/folder3/smallmessage.htm Maybe you like the txt file example -- Regards Ron de Bruin http://www.rondebruin.nl "milos" wrote in message ... Hi, I'm using this script for sending emails. I need e-mails to be sent in plaint text format. Is it possible that dispalyed emails will be as plain text, but i don't wnat to chanfe the defaults in Outlook. Thanks. Sub Mail_workbook_Outlook_ZZ() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim strto As String For Each cell In ThisWorkbook.Sheets("sheet1") _ .Columns("AF").Cells If cell.Value Like "*@*" Then strto = strto & cell.Value & ";" End If Next strto = Left(strto, Len(strto) - 1) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = strto .CC = "" .BCC = "" .Subject = "" .Body = "" .Display End With Set OutMail = Nothing Set OutApp = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hyperlinks in plain text? | Excel Discussion (Misc queries) | |||
Hyperlink from plain text. | Excel Discussion (Misc queries) | |||
How do I format email addresses as Text only? | Excel Worksheet Functions | |||
How do I create a plain text email? | Excel Programming | |||
email submission tool for converting xls to pdf or xls to plain text ascii | Excel Programming |