Hi,

I use following code to create a mail using Outlook from within Excel.
I created a template file (BeLUG vzw.htm) that resides in :
C:\Program Files\Common Files\Microsoft Shared\Letter

Now, i need to use this specific letter template.

Question is: what code lines do i need to add to the code here below
to create a mail with the desired letter template?

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
' source : http://www.rondebruin.nl/tips.htm

Dim OutApp As Object
Dim OutMail As Object
Const sMsg2 = "Send methode = Outlook"

szSection = "Expence"
szKey = "Mail Address1"
MailTo1 = GetIniKey(szFile, szSection, szKey)
szKey = "Mail Address2"
MailTo2 = GetIniKey(szFile, szSection, szKey)

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.To = MailTo1
If MailTo2 "0" Then
.CC = MailTo2
End If

.Subject = wbName
.Body = sMsg & vbCrLf & sMsg2
.Attachments.Add wbPathName
.Display '.Send '
End With

On Error GoTo 0
OutApp.Session.Logoff
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Thanks for any help.
Regards,
Ludo

Instead of creating the item with the CreateItem function, use the
GetItemFromTemplate function.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Mon, 08 Oct 2007 13:27:57 -0700 schrieb Ludo:

Hi,

I use following code to create a mail using Outlook from within Excel.
I created a template file (BeLUG vzw.htm) that resides in :
C:\Program Files\Common Files\Microsoft Shared\Letter

Now, i need to use this specific letter template.

Question is: what code lines do i need to add to the code here below
to create a mail with the desired letter template?

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
' source : http://www.rondebruin.nl/tips.htm

Dim OutApp As Object
Dim OutMail As Object
Const sMsg2 = "Send methode = Outlook"

szSection = "Expence"
szKey = "Mail Address1"
MailTo1 = GetIniKey(szFile, szSection, szKey)
szKey = "Mail Address2"
MailTo2 = GetIniKey(szFile, szSection, szKey)

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.To = MailTo1
If MailTo2 "0" Then
.CC = MailTo2
End If

.Subject = wbName
.Body = sMsg & vbCrLf & sMsg2
.Attachments.Add wbPathName
.Display '.Send '
End With

On Error GoTo 0
OutApp.Session.Logoff
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Thanks for any help.
Regards,
Ludo

A better solution might be to create the message and save it as an .oft file template, so you can use the CreateItemFromTemplate method with it as Michael suggested. If what you have is an HTML file, you can apply that file as stationery using the technique shown he http://blogs.officezealot.com/legaul...7/21/7581.aspx

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Ludo" wrote in message ups.com...
Hi,

I use following code to create a mail using Outlook from within Excel.
I created a template file (BeLUG vzw.htm) that resides in :
C:\Program Files\Common Files\Microsoft Shared\Letter

Now, i need to use this specific letter template.

Question is: what code lines do i need to add to the code here below
to create a mail with the desired letter template?

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
' source : http://www.rondebruin.nl/tips.htm

Dim OutApp As Object
Dim OutMail As Object
Const sMsg2 = "Send methode = Outlook"

szSection = "Expence"
szKey = "Mail Address1"
MailTo1 = GetIniKey(szFile, szSection, szKey)
szKey = "Mail Address2"
MailTo2 = GetIniKey(szFile, szSection, szKey)

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.To = MailTo1
If MailTo2 "0" Then
.CC = MailTo2
End If

.Subject = wbName
.Body = sMsg & vbCrLf & sMsg2
.Attachments.Add wbPathName
.Display '.Send '
End With

On Error GoTo 0
OutApp.Session.Logoff
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Thanks for any help.
Regards,
Ludo