Thank you Ron,
I put the code:
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "(E-Mail Removed);
(E-Mail Removed)"
.cc = "(E-Mail Removed)"
.Subject = BTNum & "-" & Trim(Str(Range("qty").Value)) & "
Pieces (invoice#" & InvNTxBx.Value & ")"
.Body = "Hi Bruce,This is invoice for today.Thanks &
Regards,Farhad"
.Attachments.Add ("F:\USERS\accounting\EXCEL" &
Trim(Str(Val(Right(InvDTxBx, 4)))) & "\Toshiba\Toshiba " &
Trim(Str(Val(Left(InvDTxBx, 2)))) & "\" & Crtra)
.Display 'Or use Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
but the .Body = "Hi Bruce,This is invoice for today.Thanks & Regards,Farhad"
part in the email shows like: Hi Bruce,This is invoice for today.Thanks &
Regards,Farhad
and i wand it shows like:
Hi Bruce,
This is invoice for today.
Thanks & Regards,
Farhad
can anybody help me to do this?
Thanks alot,
--
Farhad Hodjat
"Ron de Bruin" wrote:
> Hi Farhad
>
> Try the Outlook object model examples from my site
> http://www.rondebruin.nl/sendmail.htm
>
> Click on the Tip link on each example page
>
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Farhad" <(E-Mail Removed)> wrote in message news:3308444E-36B0-4749-89B8-(E-Mail Removed)...
> > Hi,
> >
> > i need to send a workbook to multiple persons and also CC to multiple
> > persons either in my VBA code.
> >
> > any helps would be much appriciated.
> >
> > Thanks,
> > --
> > Farhad Hodjat
>
Similar Threads
