[RESOLVED] Send Email

[RLPeloquin]

Sorry but I have a new thread for a similar problem. Can anyone see why this code will not send email. Outlook mail pops up and the attachment is there but when I send it, it doesn't show up in mailbox.

Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\my file", _
olByValue, 1, "Electricity Usage"
myItem.Display

[TysonLPrice]

If I understand the email pops up and you send it. I don't think it is a VB issue then. Look at it like you are sending any other email.

[couttsj]

It depends on the nature of the attachment and the ESP you are using. For example, if you are using Gmail and sending a ".pdf" file, Gmail will simply block it without advising you.

J.A. Coutts

[TysonLPrice]

It depends on the nature of the attachment and the ESP you are using. For example, if you are using Gmail and sending a ".pdf" file, Gmail will simply block it without advising you.

J.A. Coutts

He mentioned it was Outlook but I agree...it is no longer a VB issue at that point. You would think there would be a message somewhere it rejected. But I agree and try sending it without the attachment.

[RLPeloquin]

Still won't send (show up in inbox) without attachment. One thing that I've learned in VB 6 is you fix one thing and 10 other things go wrong and need fixing. LOL! But I love learning and you guys are the best with helping! Is there any suggestions to other email sending suggestions? I'm certainly not married to this one.

[OptionBase1]

Maybe take a step or two back. Is Outlook mail actually configured properly to send and/or receive email? If you take your VB 6 code completely out of the picture, and just attempt to send an email via Outlook mail completely manually, does that email show up in your Inbox?

[DataMiser]

Am I missing something? There does not appear to be any code there that looks like it actually does a send. IT appears to create a mail item and an attachment and apparently attempts to display it but I see nothing for the destination address nor to trigger a send.

I suppose maybe the user is addressing it and hitting send in outlook but if that is the case then it as stated above is not a VB issue.

[cidtek]

Under References do you have CDO For Windows 2000 library attached?

Outlook Mail should not pop up as normal behavior when using the proper library.

[westconn1]

even if there was code to send an email (myitem.send) and recipient, optionally subject and body etc, which is not included in the original post, outlook will probably block attempts to send emails using outside automation
very similar code will work from within outlook vba, but from vb6 outlook may present a dialog to confirm sending the email, which may not be visible to the user

[dilettante]

There is no VB question here at all. Puppeteering Outlook is the same in any language, it's an Outlook issue and belongs in the Office forum.

You could use CDO for Windows if your goal is just spamming, but you'll probably have to get a paid account with a spam-friendly SMTP mail relay service.

[TysonLPrice]

Am I missing something? There does not appear to be any code there that looks like it actually does a send. IT appears to create a mail item and an attachment and apparently attempts to display it but I see nothing for the destination address nor to trigger a send.

I suppose maybe the user is addressing it and hitting send in outlook but if that is the case then it as stated above is not a VB issue.

It looks like it was coded to just display. We have that in place in a couple of applications per user request. They want to review the mail merge attachment before it goes out.

[RLPeloquin]

Seems like Outlook needs to be open when sending to other emails like yahoo, gmail, etc.... No problem I can live with that. Works great!