Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 189
  • Last Modified:

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.
0
vbwanted
Asked:
vbwanted
  • 5
  • 3
2 Solutions
 
Patrick MatthewsCommented:
Hello vbwanted,

If you are using Word as your email editor, then your Outlook macros will not be visible in your new message
window.

Regards,

Patrick
0
 
Chris BottomleyCommented:
Hello vbwanted,

If your appliocation is creating the email do you know the mechanism i.e. if you send it does it appear in your outlook sent items folder?

Regards,
Chris
0
 
vbwantedAuthor Commented:
Thanks Patrick - am not using word as our email editor.
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
vbwantedAuthor Commented:
Thanks Chris,

When we send the email - it does appear in our sent items.
0
 
Chris BottomleyCommented:
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
0
 
vbwantedAuthor Commented:
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.ActiveWindow) = "Explorer" Then
        Set maiOrig = Application.ActiveExplorer.Selection.Item(1)
    ElseIf TypeName(Application.ActiveWindow) = "Inspector" Then
            Set maiOrig = Application.ActiveInspector.CurrentItem
    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
0
 
Chris BottomleyCommented:
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
0
 
vbwantedAuthor Commented:
Sure - silly me, I had not noticed it was the same user helping me out.  Thanks so much.
0
 
vbwantedAuthor Commented:
We didn't really finish this question - but I am trying to get it all separated into one final question....thanks for your help
0

Featured Post

Get your Conversational Ransomware Defense e‑book

This e-book gives you an insight into the ransomware threat and reviews the fundamentals of top-notch ransomware preparedness and recovery. To help you protect yourself and your organization. The initial infection may be inevitable, so the best protection is to be fully prepared.

  • 5
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now