Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Problems with Excel and emailing with 2003

Status
Not open for further replies.
May 15, 2007
1
NL
I've created a macro when you print a form it sends a soft copy to a group email box.

But I've having problems with some people who have Outlook 2003 but not all any ideas?

The marco is below


emailADD = "wfm@nl.sykes.com"


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Ebody = "Leaver Mover New Start Change Form" & _
Chr(10) & "Form Type: " & formtype & _
Chr(10) & "Name: " & agent & _
Chr(10) & "Called Name: " & calledname & _
Chr(10) & "Medical Considerations: " & medical & _
Chr(10) & "Current Job Title: " & jobtitle & _
Chr(10) & "Current Department: " & deptnow & _
Chr(10) & "Change or Departure Date: " & changedate & _
Chr(10) & "Last Day Live in Team: " & lastlive & _
Chr(10) & "New Job Title: " & newjobtitle & _
Chr(10) & "New Department: " & deptnew & _
Chr(10) & "New Hire Job Title: " & newhiretitle & _
Chr(10) & "New Hire Department: " & newhiredept & _
Chr(10) & "New Hire Start Date: " & startdate & _
Chr(10) & "Live In Account Target: " & onlinedate & _
Chr(10) & "Live In Account Target: " & newonlinedate & _
Chr(10) & "Contract Duration: " & contractdur & _
Chr(10) & "Contract Type: " & contracttype & _
Chr(10) & "Contract Hours: " & contracthrs & _
Chr(10) & "Contract Agreement: " & contractagree & _
Chr(10) & "Native Language: " & langnative & _
Chr(10) & "Support Language One: " & langtwo & _
Chr(10) & "Support Language Two: " & langthree & _
Chr(10) & "Support Language Three: " & langfour & _
Chr(10) & "Support Language Four: " & langfive





Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = formtype & " " & deptnow & " " & newhiredept
.To = Me@me.com
.Body = Ebody
.send
End With
Set App = Nothing
Set Itm = Nothing
End Sub

 




Hi,

"... having problems with some people who have Outlook 2003 ..."

What kind of problems? They have a different Outlook, a bad Outlook, a pessimistic Outlook?

Skip,

[glasses] [red][/red]
[tongue]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top