1. Computer problem? Tech Support Guy is completely free -- paid for by advertisers and donations. Click here to join today! If you're new to Tech Support Guy, we highly recommend that you visit our Guide for New Members.

Error Alerts automatic mail receipt

Discussion in 'Business Applications' started by SeanScott, Apr 2, 2012.

Thread Status:
Not open for further replies.
  1. SeanScott

    SeanScott Thread Starter

    Joined:
    Apr 2, 2012
    Messages:
    1
    Hi all,

    I'm currently working with two system which run alongside each other. the problem that i have is when we have an error alert show up one one system we need to find a way to let the other system aware that we have checked our data and the problem is within their system data. Attached is worksheet that im hoping to use so that if any of the message types show an alert i can populate a message to show exactly what i have checked and send them a receipt if you like for them to cross reference against their own data. Is there some sort of code i could implement to help me with this problem of sending a auto response with my data attached or as close to this as possible. Hope you can shed some light on this very dark subject for me :)

    Regards

    Sean Scott
     

    Attached Files:

  2. Keebellah

    Keebellah Trusted Advisor

    Joined:
    Mar 27, 2008
    Messages:
    6,591
    First Name:
    Hans
    Hi Sean, welcome to the forum

    Why don't you play aroundw ith the code below.
    Copy and paste it in a VBA module

    The parameters you need to pass to the function are more or less self explanatory
    Of course if you Google for it you'll find more options

    One link I found: http://msdn.microsoft.com/en-us/library/hh859489.aspx




    Code:
    Option Explicit
    Function MailData(mSubject As String, mMessage As String, Sendto As String, Optional CCto As String)
    Dim eSubject As String, Sendto As String, CCto As String, EBody As String
    Dim app As Object, Itm As Variant
    Set app = CreateObject("Outlook.Application")
    Set Itm = app.CreateItem(0)
    
    With Itm
        .Subject = mSubject
        .To = Sendto
        If Not IsMissing(CCto) Then .CC = CCto
        .Body = mMessage
    '     .Attachments.Add (NewFileName1) ' Must be complete path
        .Display ' This property is used when you want
    '    .send
    End With
    Set app = Nothing
    Set Itm = Nothing
    End Function
    
     
As Seen On
As Seen On...

Welcome to Tech Support Guy!

Are you looking for the solution to your computer problem? Join our site today to ask your question. This site is completely free -- paid for by advertisers and donations.

If you're not already familiar with forums, watch our Welcome Guide to get started.

Join over 733,556 other people just like you!

Loading...
Thread Status:
Not open for further replies.

Short URL to this thread: https://techguy.org/1047592

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice