Sending email from access - Reference Stephen Lebans code

  • Thread starter Thread starter Irshad Alam
  • Start date Start date
I

Irshad Alam

I have used the code and dll files after downloading from Mr. Stephen Lebans
website for converting the report to pdf (which have also dynapdf.dll &
strstorage.dll) . The following code I used which worked perfectly :

Private Sub Label59_Click()
RepoToPdfWC
End Sub

Function RepoToPdfWC()
Dim blRet As Boolean
blRet = ConvertReportToPDF(Me.Text60, vbNullString,
"C:\WsImpFiles\MyClaimedPDF\" & "Job-" & Me.JobNo & "-ClaimRef." &
Me.ClaimRefNo.Value & ".PDF", False)
End Function

Note : Me.Text60 contains the report name

The above sucessfully converts to pdf and open the pdf into acrobat 5

I want to add more codes and edit on above to get my below requirement

1 It should not open the acrobat for preview
2. it should open outlook express 6 - new email message and attach the above
created pdf and according to below BUT should not send, so that I can have a
final view before sending :

Email as below :

From: = (e-mail address removed)
To: = (e-mail address removed)
CC: = (e-mail address removed)
Subject: = "Job-" & Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value
Body = "Reference is made to subject claim, attached pls. find the claim
form as pdf"
Bodysecondline="Thanks"
Bodythirdline="Irshad"
AttachmentFile="C:\WsImpFiles\MyClaimedPDF\" & "Job-" & Me.JobNo &
"-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"


Note2 : I am using Windows XP svcpack2 and outlook express 6 , ms office 2000

Please advice, it will help me to reduce job time of hours.

Regards

Irshad
 
I'm not familar with the code that you refer to, however if its using the
Outlook object model to create a MailItem, the .Send Property is the one that
actually sends the email. If its in the code, replace it with .Display.

See...
http://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook._mailitem.display.aspx

If you need code to actually create the MailItem see...
http://msdn.microsoft.com/en-us/library/aa220082(office.11).aspx

To attach the file, see
http://msdn.microsoft.com/en-us/library/aa210901(office.11).aspx
 
Hope this help you
Sub SendingMail()

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.to = "(e-mail address removed)"
myItem.cc = "(e-mail address removed)"
myItem.Subject = "Job-" & Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value
myItem.body = "Reference is made to subject claim, attached pls. find
the claim form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
myItem.Attach = "C:\WsImpFiles\MyClaimedPDF\" & "Job-" & Me.JobNo &
"-ClaimRef." & Me.ClaimRefNo.Value & ".PDF"
myItem.Send

End Sub

Regards
 
Ups, sorry, having problems whit attachements, try this one

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set Attamm = myItem.attachments
myItem.to = "(e-mail address removed)"
myItem.cc = "(e-mail address removed)"
myItem.Subject = "Job-" & Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value
myItem.body = "Reference is made to subject claim, attached pls. find
the claim form as pdf" + Chr(13) + "Thanks" + Chr(13) + "Irshad"
setnewAttacment = Attamm.Add("C:\WsImpFiles\MyClaimedPDF\" & "Job-" &
Me.JobNo & "-ClaimRef." & Me.ClaimRefNo.Value & ".PDF", olbyvalue)
myItem.Send
 
Thank your for advise.

I copied this code and tried, but the following error occured

1. Its is opening/making the mail in Ms Outlook, While I need the same to
be done in Outlook express 6.

2. Above when I tested, found that it is getting shortcut attached of the
file, not the file is getting attached.

3. The body line code is not perfect, it producing error, I modified little
for one line only, then it worked, so for adding second and third line pls.
revise/edit the code

I request you all to kindly advise on the above, so that I can complete this
by sending the pdf by outlookexpress 6 with the complete coding. This will
make me one click complete automatation to reach on outlook express screen
with the detail filled.

Regards

Irshad
 
Hi, my mistake, i suppouse that you are working in Outlook, it semm to me
that i must to change the object.

Set myOlApp = CreateObject("Outlook.Application")

lets me work , i hope to help you soon

Regards
 
Sorry , try this one


Sub SendMailWhitOE6()

MAPISession1.UserName = "(e-mail address removed)"
MAPISession1.NewSession = True
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.MsgIndex = -1 ' new message
MAPIMessages1.RecipDisplayName =
"(e-mail address removed);[email protected]"

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
 
Is Ok??

Patricio said:
Sorry , try this one


Sub SendMailWhitOE6()

MAPISession1.UserName = "(e-mail address removed)"
MAPISession1.NewSession = True
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.MsgIndex = -1 ' new message
MAPIMessages1.RecipDisplayName =
"(e-mail address removed);[email protected]"

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
 
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 = "(e-mail address removed)"
MAPISession1.NewSession = True
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.MsgIndex = -1 ' new message
MAPIMessages1.RecipDisplayName =
"(e-mail address removed);[email protected]"

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

Please correct my code and advice, so that I can complete it at earliest

Regards

Irshad
 
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 = "(e-mail address removed);[email protected]"

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
 
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 = "(e-mail address removed);[email protected]"

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
 
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 = "(e-mail address removed);[email protected]"

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
 
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 .
 
I dont know what mistake I am making, its not working.

Any mdb sample you can provide so solve this. pls. advice

regards

Irshad
 
Back
Top