Creating outlook message from template

[John]

Hi

I am using the below code to generate an outlook message from a template
from within access. I am getting the 'Object variable or With block variable
not set' error on the line indicated. What am I doing wrong?

Thanks

Regards

Dim OutlookApp As New Outlook.Applica tion
Dim em As Outlook.MailIte m
Dim objOutlookRecip As Outlook.Recipie nt

em = OutlookApp.Crea teItemFromTempl ate(Template) '<== This line gives the
error.

With em
em.Recipients.A dd ("us***@mydomai n.com")
em.Recipients.A dd ("us***@mydomai n.com")
.Subject = "My Subject"
.Body = "Body Text"
.AttachmentAdd "c:\fiewlname.t xt"
.Display (False)
End With

Set em = Nothing

[Douglas J. Steele]

What is Template? If you have a template named "Template", you need to have
the name in quotes:

em = OutlookApp.Crea teItemFromTempl ate("Template")

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"John" <Jo**@nospam.in fovis.co.uk> wrote in message
news:41******** **************@ news.dial.pipex .com...

Hi

I am using the below code to generate an outlook message from a template
from within access. I am getting the 'Object variable or With block variable not set' error on the line indicated. What am I doing wrong?

Thanks

Regards

Dim OutlookApp As New Outlook.Applica tion
Dim em As Outlook.MailIte m
Dim objOutlookRecip As Outlook.Recipie nt

em = OutlookApp.Crea teItemFromTempl ate(Template) '<== This line gives the error.

With em
em.Recipients.A dd ("us***@mydomai n.com")
em.Recipients.A dd ("us***@mydomai n.com")
.Subject = "My Subject"
.Body = "Body Text"
.AttachmentAdd "c:\fiewlname.t xt"
.Display (False)
End With

Set em = Nothing

[John]

Template is a string variable that has the name & path of the outlook oft
file.

Regards

"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in message
news:Uq******** ********@news04 .bloor.is.net.c able.rogers.com ...

What is Template? If you have a template named "Template", you need to have the name in quotes:

em = OutlookApp.Crea teItemFromTempl ate("Template")

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"John" <Jo**@nospam.in fovis.co.uk> wrote in message
news:41******** **************@ news.dial.pipex .com...

Hi

I am using the below code to generate an outlook message from a template
from within access. I am getting the 'Object variable or With block

variable

not set' error on the line indicated. What am I doing wrong?

Thanks

Regards

Dim OutlookApp As New Outlook.Applica tion
Dim em As Outlook.MailIte m
Dim objOutlookRecip As Outlook.Recipie nt

em = OutlookApp.Crea teItemFromTempl ate(Template) '<== This line gives

the

error.

With em
em.Recipients.A dd ("us***@mydomai n.com")
em.Recipients.A dd ("us***@mydomai n.com")
.Subject = "My Subject"
.Body = "Body Text"
.AttachmentAdd "c:\fiewlname.t xt"
.Display (False)
End With

Set em = Nothing

[Douglas J. Steele]

Too bad you didn't show that in what you posted...

I believe it's been pointed out to you somewhere else where you posted the
same question that you need

Set em = OutlookApp.Crea teItemFromTempl ate(Template)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"John" <Jo**@nospam.in fovis.co.uk> wrote in message
news:41******** **************@ news.dial.pipex .com...

Template is a string variable that has the name & path of the outlook oft
file.

Regards

"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in message
news:Uq******** ********@news04 .bloor.is.net.c able.rogers.com ...

What is Template? If you have a template named "Template", you need to

have

the name in quotes:

em = OutlookApp.Crea teItemFromTempl ate("Template")

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"John" <Jo**@nospam.in fovis.co.uk> wrote in message
news:41******** **************@ news.dial.pipex .com...

Hi

I am using the below code to generate an outlook message from a template from within access. I am getting the 'Object variable or With block

variable

not set' error on the line indicated. What am I doing wrong?

Thanks

Regards

Dim OutlookApp As New Outlook.Applica tion
Dim em As Outlook.MailIte m
Dim objOutlookRecip As Outlook.Recipie nt

em = OutlookApp.Crea teItemFromTempl ate(Template) '<== This line

gives the

error.

With em
em.Recipients.A dd ("us***@mydomai n.com")
em.Recipients.A dd ("us***@mydomai n.com")
.Subject = "My Subject"
.Body = "Body Text"
.AttachmentAdd "c:\fiewlname.t xt"
.Display (False)
End With

Set em = Nothing