Excel Visual Basic Code...

Anyone any good at it?

ye, what are you looking to find out?

a good place is VBFORUMS.com

drop up your code and i will see what i can do

Dav

I am trying to get it to send an email to a specific email address with the speadsheet attached

I can get it to bring up and email with it attached, but i have never done this before and thats about as far as i can get without any notes or help

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 18/03/2011 by Rachel Morris
'
'
Range("P30").Select
Application.Dialogs(xlDialogSendMail).Show
End Sub

I added in:

' Create a new email object

email.Subject = "Text"
email.Body = "Text"
email.From = "USER <EMAILADDRESS>"
email.AddTo "ADMIN","EMAIL ADDRESS"


But doesnt like that. And its all a bit futher than my basic knowledge goes

beyond me.. i tend to record the macro and then chop it about to suit...

Originally Posted by Rai86

I am trying to get it to send an email to a specific email address with the speadsheet attached

I can get it to bring up and email with it attached, but i have never done this before and thats about as far as i can get without any notes or help

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 18/03/2011 by Rachel Morris
'
'
Range("P30").Select
Application.Dialogs(xlDialogSendMail).Show
End Sub

I added in:

' Create a new email object

email.Subject = "Text"
email.Body = "Text"
email.From = "USER <EMAILADDRESS>"
email.AddTo "ADMIN","EMAIL ADDRESS"


But doesnt like that. And its all a bit futher than my basic knowledge goes

change the File extention of the attachment from DOC to XLS (not able to upload xls files) if you open the file then navigate to VB you will see 2 modules ones a BAS file and the other is a CLS file.

the line OL.SendMessage "EMAIL@EMAIL.com", "TEST", "TEST123"

if you add a file name to the end like this
OL.SendMessage "EMAIL@EMAIL.com", "TEST", "TEST123", "c:\TESt.txt"

then it will send the attachment as well.

if you want to know how it works in detail give me a shout and i will do my best.

cheers
Dav
SEND_MAIL.DOC

Brilliant thank you, i will give it a go

[mikerj]

Have a look here

[DarrenSV650S]