How Do I Send Attachments from Word Without Outlook?

[koolx]

I desperately need help. What code do I use to send attachments from Word '03 without Outlook? I think its done with CDO. What code do I use to do this? Just to lt you guys know, I know little about VBA or CDO. Also, I'm using gmail as IMAP.

[His Nibbs]

Try the Office forum and http://www.rondebruin.nl/cdo.htm

[koolx]

Try the Office forum and http://www.rondebruin.nl/cdo.htm

Hi, his nibbs.. the link you provided only works for excel, not word. And I need CDO with Word.

[His Nibbs]

Have you tried it? Nothing in the code is specific to Excel. It should work in Word too.

[koolx]

Have you tried it? Nothing in the code is specific to Excel. It should work in Word too.

Hi, His Nibbs.. Yeah, I tried the code below. But, it looks like I cant send it rhough File>Mail Recipient. I think I need to create a userform. If you know how I can create one, please let me know. Thanks.

Sub SendMailCDO()
 
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
 
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
 
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = """Me"" <hidden>"
objMessage.To = "hidden"
objMessage.TextBody = "This is some sample message text.." & vbCrLf & "It was sent using SMTP authentication and SSL."
 
'==This section provides the configuration information for the remote SMTP server.
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "hidden"
 
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "hidden"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
 
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
objMessage.Configuration.Fields.Update
 
'==End remote SMTP server configuration section==
 
objMessage.Send
End Sub