Sending email from access - Reference Stephen Lebans code

Outlook Express is your default email program?

I still working to help you,

Regards


"Irshad Alam" wrote:

> Hi Sir.
>
> thank you reply. I copied from your reply and pasted the below code and it
> did not work - Producing error on the first line (highlighting yellow) -
> error no. : "RunTime Error 424 - Object Required":
>
> Private Sub Label65_Click()
> MAPISession1.UserName = "adhservice.gthe@galadarigroup.com"
> MAPISession1.NewSession = True
> MAPISession1.DownLoadMail = False
> MAPISession1.SignOn
> MAPIMessages1.SessionID = MAPISession1.SessionID
>
> MAPIMessages1.MsgIndex = -1 ' new message
> MAPIMessages1.RecipDisplayName =
> "irshad2.gthe@ggcompany.com;naaeems.gthe@ggcompany .com"
>
> MAPIMessages1.ResolveName '
> MAPIMessages1.MsgSubject = "Job-" & Me.JobNo & "-ClaimRef." &
> Me.ClaimRefNo.Value
> MAPIMessages1.MsgNoteText = "Reference is made to subject claim, attached
> pls. find the claim form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
> MAPIMessages1.AttachmentIndex = 0 '
> MAPIMessages1.AttachmentName = "Job-" & Me.JobNo & "-ClaimRef." &
> Me.ClaimRefNo.Value & ".PDF"
> MAPIMessages1.AttachmentPathName = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" &
> Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
> MAPIMessages1.AttachmentPosition = 0
> MAPIMessages1.AttachmentType = 0
> MAPIMessages1.Send
>
>
> MAPISession1.SignOff
>
> End Sub
>

Still trying

Sub SendMailCDO()

FromWhom = "Irshad"
AttachmentPath = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" & Me.JobNo &
"-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
Body = "Reference is made to subject claim, attached pls. find the claim
form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
Subject = "Job-" & Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value
ToWhom = "irshad2.gthe@ggcompany.com;naaeems.gthe@ggcompany .com"

Const cdoDefaults = -1
Const cdoIIS = 1
Const cdoOutlookExpress = 2

Dim Message As Object 'CDO.Message

Set Message = CreateObject("CDO.Message")

With Message
'Use default configuration from system
'until I learn otherwise

..Configuration.Load -1

..to = ToWhom
If Len(FromWhom) > 0 Then
..from = FromWhom
End If
..Subject = Subject
..TextBody = Body
If Len(AttachmentPath) > 0 Then
..AddAttachment AttachmentPath
End If

..Send
End With
End Sub


Be sure you has CDO objects registred in Access



"Patricio" wrote:

> Outlook Express is your default email program?
>
> I still working to help you,
>
> Regards
>
>
> "Irshad Alam" wrote:
>
> > Hi Sir.
> >
> > thank you reply. I copied from your reply and pasted the below code and it
> > did not work - Producing error on the first line (highlighting yellow) -
> > error no. : "RunTime Error 424 - Object Required":
> >
> > Private Sub Label65_Click()
> > MAPISession1.UserName = "adhservice.gthe@galadarigroup.com"
> > MAPISession1.NewSession = True
> > MAPISession1.DownLoadMail = False
> > MAPISession1.SignOn
> > MAPIMessages1.SessionID = MAPISession1.SessionID
> >
> > MAPIMessages1.MsgIndex = -1 ' new message
> > MAPIMessages1.RecipDisplayName =
> > "irshad2.gthe@ggcompany.com;naaeems.gthe@ggcompany .com"
> >
> > MAPIMessages1.ResolveName '
> > MAPIMessages1.MsgSubject = "Job-" & Me.JobNo & "-ClaimRef." &
> > Me.ClaimRefNo.Value
> > MAPIMessages1.MsgNoteText = "Reference is made to subject claim, attached
> > pls. find the claim form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
> > MAPIMessages1.AttachmentIndex = 0 '
> > MAPIMessages1.AttachmentName = "Job-" & Me.JobNo & "-ClaimRef." &
> > Me.ClaimRefNo.Value & ".PDF"
> > MAPIMessages1.AttachmentPathName = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" &
> > Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
> > MAPIMessages1.AttachmentPosition = 0
> > MAPIMessages1.AttachmentType = 0
> > MAPIMessages1.Send
> >
> >
> > MAPISession1.SignOff
> >
> > End Sub
> >
>

Sir,

Sorry, I dont know how to register the CDO with Access. You can guide me on
this, so that I can register and test the code.

Regards

Irshad



"Patricio" wrote:

> Still trying
>
> Sub SendMailCDO()
>
> FromWhom = "Irshad"
> AttachmentPath = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" & Me.JobNo &
> "-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
> Body = "Reference is made to subject claim, attached pls. find the claim
> form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
> Subject = "Job-" & Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value
> ToWhom = "irshad2.gthe@ggcompany.com;naaeems.gthe@ggcompany .com"
>
> Const cdoDefaults = -1
> Const cdoIIS = 1
> Const cdoOutlookExpress = 2
>
> Dim Message As Object 'CDO.Message
>
> Set Message = CreateObject("CDO.Message")
>
> With Message
> 'Use default configuration from system
> 'until I learn otherwise
>
> .Configuration.Load -1
>
> .to = ToWhom
> If Len(FromWhom) > 0 Then
> .from = FromWhom
> End If
> .Subject = Subject
> .TextBody = Body
> If Len(AttachmentPath) > 0 Then
> .AddAttachment AttachmentPath
> End If
>
> .Send
> End With
> End Sub
>
>
> Be sure you has CDO objects registred in Access
>
>
>
> "Patricio" wrote:
>
> > Outlook Express is your default email program?
> >
> > I still working to help you,
> >
> > Regards
> >
> >
> > "Irshad Alam" wrote:
> >
> > > Hi Sir.
> > >
> > > thank you reply. I copied from your reply and pasted the below code and it
> > > did not work - Producing error on the first line (highlighting yellow) -
> > > error no. : "RunTime Error 424 - Object Required":
> > >
> > > Private Sub Label65_Click()
> > > MAPISession1.UserName = "adhservice.gthe@galadarigroup.com"
> > > MAPISession1.NewSession = True
> > > MAPISession1.DownLoadMail = False
> > > MAPISession1.SignOn
> > > MAPIMessages1.SessionID = MAPISession1.SessionID
> > >
> > > MAPIMessages1.MsgIndex = -1 ' new message
> > > MAPIMessages1.RecipDisplayName =
> > > "irshad2.gthe@ggcompany.com;naaeems.gthe@ggcompany .com"
> > >
> > > MAPIMessages1.ResolveName '
> > > MAPIMessages1.MsgSubject = "Job-" & Me.JobNo & "-ClaimRef." &
> > > Me.ClaimRefNo.Value
> > > MAPIMessages1.MsgNoteText = "Reference is made to subject claim, attached
> > > pls. find the claim form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
> > > MAPIMessages1.AttachmentIndex = 0 '
> > > MAPIMessages1.AttachmentName = "Job-" & Me.JobNo & "-ClaimRef." &
> > > Me.ClaimRefNo.Value & ".PDF"
> > > MAPIMessages1.AttachmentPathName = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" &
> > > Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
> > > MAPIMessages1.AttachmentPosition = 0
> > > MAPIMessages1.AttachmentType = 0
> > > MAPIMessages1.Send
> > >
> > >
> > > MAPISession1.SignOff
> > >
> > > End Sub
> > >
> >

Tri it, please

"Irshad Alam" wrote:

> Sir,
>
> Sorry, I dont know how to register the CDO with Access. You can guide me on
> this, so that I can register and test the code.
>
> Regards
>
> Irshad
>
>
>

Sir,

I could not understand, what to try.

Please guide.

Regards

Irshad


"Patricio" wrote:

> Tri it, please
>
> "Irshad Alam" wrote:
>
> > Sir,
> >
> > Sorry, I dont know how to register the CDO with Access. You can guide me on
> > this, so that I can register and test the code.
> >
> > Regards
> >
> > Irshad
> >
> >
> >
>

Try last code , please. Then we decide

"Irshad Alam" wrote:

> Sir,
>
> I could not understand, what to try.
>
> Please guide.
>
> Regards
>
> Irshad
>
>
> "Patricio" wrote:
>
> > Tri it, please
> >
> > "Irshad Alam" wrote:
> >
> > > Sir,
> > >
> > > Sorry, I dont know how to register the CDO with Access. You can guide me on
> > > this, so that I can register and test the code.
> > >
> > > Regards
> > >
> > > Irshad
> > >
> > >
> > >
> >

Sir,

Still waiting for your reply.

Please advise

Regards

Irshad

"Patricio" wrote:

> Tri it, please
>
> "Irshad Alam" wrote:
>
> > Sir,
> >
> > Sorry, I dont know how to register the CDO with Access. You can guide me on
> > this, so that I can register and test the code.
> >
> > Regards
> >
> > Irshad
> >
> >
> >
>

Try this please

Sub SendMailCDO()

FromWhom = "Irshad"
AttachmentPath = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" & Me.JobNo &
"-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
Body = "Reference is made to subject claim, attached pls. find the claim
form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
Subject = "Job-" & Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value
ToWhom = "irshad2.gthe@ggcompany.com;naaeems.gthe@ggcompany .com"

Const cdoDefaults = -1
Const cdoIIS = 1
Const cdoOutlookExpress = 2

Dim Message As Object 'CDO.Message

Set Message = CreateObject("CDO.Message")

With Message
'Use default configuration from system
'until I learn otherwise

.Configuration.Load -1

.to = ToWhom
If Len(FromWhom) > 0 Then
.from = FromWhom
End If
.Subject = Subject
.TextBody = Body
If Len(AttachmentPath) > 0 Then
.AddAttachment AttachmentPath
End If

.Send
End With
End Sub




"Irshad Alam" wrote:

> Sir,
>
> I could not understand, what to try.
>
> Please guide.
>
> Regards
>
> Irshad
>
>
> "Patricio" wrote:
>
> > Tri it, please
> >
> > "Irshad Alam" wrote:
> >
> > > Sir,
> > >
> > > Sorry, I dont know how to register the CDO with Access. You can guide me on
> > > this, so that I can register and test the code.
> > >
> > > Regards
> > >
> > > Irshad
> > >
> > >
> > >
> >

Sorry, i think my last message was no published.

Irshad, please this the code. If didn't work i'll help you


Sub SendMailCDO()

FromWhom = "Irshad"
AttachmentPath = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" & Me.JobNo &
"-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
Body = "Reference is made to subject claim, attached pls. find the claim
form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
Subject = "Job-" & Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value
ToWhom = "irshad2.gthe@ggcompany.com;naaeems.gthe@ggcompany .com"

Const cdoDefaults = -1
Const cdoIIS = 1
Const cdoOutlookExpress = 2

Dim Message As Object 'CDO.Message

Set Message = CreateObject("CDO.Message")

With Message
'Use default configuration from system
'until I learn otherwise

.Configuration.Load -1

.to = ToWhom
If Len(FromWhom) > 0 Then
.from = FromWhom
End If
.Subject = Subject
.TextBody = Body
If Len(AttachmentPath) > 0 Then
.AddAttachment AttachmentPath
End If

.Send
End With
End Sub





"Irshad Alam" wrote:

> Sir,
>
> I could not understand, what to try.
>
> Please guide.
>
> Regards
>
> Irshad
>
>
> "Patricio" wrote:
>
> > Tri it, please
> >
> > "Irshad Alam" wrote:
> >
> > > Sir,
> > >
> > > Sorry, I dont know how to register the CDO with Access. You can guide me on
> > > this, so that I can register and test the code.
> > >
> > > Regards
> > >
> > > Irshad
> > >
> > >
> > >
> >

I dont have any news from my last message ( 9/10/2008 ), So i want to know if
you tryed last code thet i sendt and if it works. Please send a reply .




"Irshad Alam" wrote:

> Sir,
>
> Still waiting for your reply.
>
> Please advise
>
> Regards
>
> Irshad
>
> "Patricio" wrote:
>
> > Tri it, please
> >
> > "Irshad Alam" wrote:
> >
> > > Sir,
> > >
> > > Sorry, I dont know how to register the CDO with Access. You can guide me on
> > > this, so that I can register and test the code.
> > >
> > > Regards
> > >
> > > Irshad
> > >
> > >
> > >
> >