DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

VB6 - Email attachment not working

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

VB6 - Email attachment not working

Jul 20th, 2007

VB6 - Email attachment not working
Hi,
I wrote this program to send email through VB. The email is working okay but the attachment I need to attach to the email is not being attached.

See my codes below:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(0)
 Set NSpace = OutlookApp.GetNamespace("MAPI")
 Set OutlookContacts = NSpace.GetDefaultFolder  _(olFolderContacts).Items
 
MailAttach = "C:\ProjectStatus.xls"  <-- This spreadsheet resides in my hard drive.
 
 OutlookMail.To = EmailID
 OutlookMail.Subject = "Project Status"
 OutlookMail.Body = "This is VB email test"
 
 If Len(MailAttach) = 0 Then
    OutlookMail.Attachments.Add MailAttach  '"C:\ProjectStatus.xls"
 End If
 
 'OutlookMail.Display      'To display the email
 OutlookMail.Send         'To send the email
 
 Set OutlookApp = Nothing
 Set OutlookMail = Nothing
Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(0)
 Set NSpace = OutlookApp.GetNamespace("MAPI")
 Set OutlookContacts = NSpace.GetDefaultFolder  _(olFolderContacts).Items

MailAttach = "C:\ProjectStatus.xls"  <-- This spreadsheet resides in my hard drive.
  
 OutlookMail.To = EmailID
 OutlookMail.Subject = "Project Status"
 OutlookMail.Body = "This is VB email test"
 
 If Len(MailAttach) = 0 Then
    OutlookMail.Attachments.Add MailAttach  '"C:\ProjectStatus.xls"
 End If
 
 'OutlookMail.Display      'To display the email
 OutlookMail.Send         'To send the email
    
 Set OutlookApp = Nothing
 Set OutlookMail = Nothing

Any assistance will be appreciated.
tgifgemini

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: VB6 - Email attachment not working

Jul 21st, 2007

Hi,

along with the above code, Create a seperate Attacmnet object, check this code:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim OAttach As Outlook.Attachment
If Not IsMissing(MailAttach) Then
  Set OAttach = OutLookMail.Attachments.Add(MailAttach)
End If
Dim OAttach As Outlook.Attachment
If Not IsMissing(MailAttach) Then
  Set OAttach = OutLookMail.Attachments.Add(MailAttach)
End If

Regards
Veena

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB6 - Email attachment not working

Jul 23rd, 2007

Thanks for your expertise. My attachment is working now. However, I have one minor problem. See my follow-up post regarding RT Error: 424 object required.
My code bummed out on this line:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
lvw.ListItems.Add , , OutlookAddressEntry.Name
lvw.ListItems.Add , , OutlookAddressEntry.Name

Thanks again,
tgifgemini.

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB6 - Runtime error 424 - Object required (Outlook email set up)

Jul 23rd, 2007

In my perception, I have dimensioned the object below, but have not set it; To what should I set it?

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim OutlookAddressEntry As Outlook.AddressEntry
 
Set OutlookAddressEntry = ????????????? <== This maybe my problem
Dim OutlookAddressEntry As Outlook.AddressEntry

Set OutlookAddressEntry = ????????????? <== This maybe my problem