Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 5939

Jul 20th, 2007

VB6 - Email attachment not working

Expand Post »

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:

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

Similar Threads

send email with attachment in PHP
VB6 - Look up email address from outlook address book? in Visual Basic 4 / 5 / 6
How do i Send and Receive Email with Attachment in Visual Basic 4 / 5 / 6
email attachment in Visual Basic 4 / 5 / 6
Transfering email attachment to DVD? in Windows NT / 2000 / XP

tgifgemini

Reputation Points: 22

Solved Threads: 0

Junior Poster

Offline

113 posts
since Jul 2007

Permalink

Jul 21st, 2007

Re: VB6 - Email attachment not working

Hi,

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

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

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

Permalink

Jul 23rd, 2007

Re: VB6 - Email attachment not working

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:

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

Thanks again,
tgifgemini.

tgifgemini

Reputation Points: 22

Solved Threads: 0

Junior Poster

Offline

113 posts
since Jul 2007

Permalink

Jul 23rd, 2007

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

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

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

You can see all the previous code you gave me.
tgifgemini.

tgifgemini

Reputation Points: 22

Solved Threads: 0

Junior Poster

Offline

113 posts
since Jul 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: referential integrity in access DB

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Optimizing text file writing in VB 6.0

DaniWeb Message

Cancel Changes

User Name
Password