vbwanted
asked on
why can I not see my macros in mail message
I am using a order entry software program that sends email updates to our clients of their order status. A Microsoft Outlook email is created with text & launched when a button is pressed in the software. However, I would like to create a macro that would add some text to the standard email format created by the software program. Once the email is created & launched - I can not see any of the macros that I have created in my outlook. Why would that be.
Would really appreciate any help you can provide.
Would really appreciate any help you can provide.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks Chris,
When we send the email - it does appear in our sent items.
When we send the email - it does appear in our sent items.
PLease excuse me questioning you!
WHere you say your outlook macros are not visible, can you supply a sample and define the module in which the macro resides, normal module or class module for instance.
Chris
WHere you say your outlook macros are not visible, can you supply a sample and define the module in which the macro resides, normal module or class module for instance.
Chris
ASKER
I know nothing about macros in outlook - how would i know if it is a normal module or class module
here is the macro that I was given by another user on this website...
sub addtoeMail()
Dim maiNew As Outlook.MailItem
Dim maiOrig As Object
Dim str As String
If TypeName(Application.Activ eWindow) = "Explorer" Then
Set maiOrig = Application.ActiveExplorer .Selection .Item(1)
ElseIf TypeName(Application.Activ eWindow) = "Inspector" Then
Set maiOrig = Application.ActiveInspecto r.CurrentI tem
Else
Exit Sub
End If
If Not maiOrig Is Nothing Then
Set maiNew = maiOrig.Reply
str = "Good Morning" & vbCrLf & vbCrLf & _
"Thank you for giving us the opportunity to work with you. We" & vbCrLf & _
"recognize that our success is determined by the success of our" & vbCrLf & _
"clients. We thank you for trusting us with your business and look" & vbCrLf & _
"forward to assisting you on your next order." & vbCrLf & vbCrLf & _
"Please find below the details of your current order." & vbCrLf & vbCrLf
maiNew.Body = str & maiNew.Body
maiNew.Display
End If
Set maiNew = Nothing
Set maiOrig = Nothing
End Sub
here is the macro that I was given by another user on this website...
sub addtoeMail()
Dim maiNew As Outlook.MailItem
Dim maiOrig As Object
Dim str As String
If TypeName(Application.Activ
Set maiOrig = Application.ActiveExplorer
ElseIf TypeName(Application.Activ
Set maiOrig = Application.ActiveInspecto
Else
Exit Sub
End If
If Not maiOrig Is Nothing Then
Set maiNew = maiOrig.Reply
str = "Good Morning" & vbCrLf & vbCrLf & _
"Thank you for giving us the opportunity to work with you. We" & vbCrLf & _
"recognize that our success is determined by the success of our" & vbCrLf & _
"clients. We thank you for trusting us with your business and look" & vbCrLf & _
"forward to assisting you on your next order." & vbCrLf & vbCrLf & _
"Please find below the details of your current order." & vbCrLf & vbCrLf
maiNew.Body = str & maiNew.Body
maiNew.Display
End If
Set maiNew = Nothing
Set maiOrig = Nothing
End Sub
OOPS!
You've got two questions open, and they are overlapping at this point. Can we concentrate on just the one thread ... the other one since that is the precursor to this question?
Chris
You've got two questions open, and they are overlapping at this point. Can we concentrate on just the one thread ... the other one since that is the precursor to this question?
Chris
ASKER
Sure - silly me, I had not noticed it was the same user helping me out. Thanks so much.
ASKER
We didn't really finish this question - but I am trying to get it all separated into one final question....thanks for your help
ASKER