Jump to content

MrReview

Members
  • Gesamte Inhalte

    147
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von MrReview

  1. Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
       On Error Resume Next
       'Folgende Variablen anpassen
       strSender = "test@test.de" 'Absender, bei dem die Mail gesendet werden soll
       strRecipient = "bla@blupp.de" 'Empfänger der Benachrichtigung
       strSubject = "Neue Mail" 'Betreff der Mail
       strBody = "Nachrichtentext" 'Nachrichtentext
       'Anpassung Ende
    
       Dim intInitial As Integer
       Dim intFinal As Integer
       Dim strEntryID As String
       Dim intLength As Integer
       Dim msgMail As MailItem
       Dim msgIncoming As MailItem
    
       Set msgMail = Application.CreateItem(olMailItem)
    
       intInitial = 1
       intLength = Len(EntryIDCollection)
       intFinal = InStr(intInitial, EntryIDCollection, ",")
    
       Do While intFinal <> 0
           strEntryID = Strings.Mid(EntryIDCollection, intInitial, (intFinal - intInitial))
           Set msgIncoming = Application.Session.GetItemFromID(strEntryID)
           If LCase(msgIncoming.SenderEmailAddress) = LCase(strSender) Then
               With msgMail
                   .To = strRecipient
                   .Subject = strSubject
                   .Body = strBody
               End With
    
               msgMail.Send
           End If
           intInitial = intFinal + 1
           intFinal = InStr(intInitial, EntryIDCollection, ",")
       Loop
       strEntryID = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
       Set msgIncoming = Application.Session.GetItemFromID(strEntryID)
       If LCase(msgIncoming.SenderEmailAddress) = LCase(strSender) Then
           With msgMail
               .To = strRecipient
               .Subject = strSubject
               .Body = strBody
           End With
    
           msgMail.Send
       End If
    
    End Sub
    

     

    Sooo, bei dem Script oben kann man dann auch angeben, dass nur Mails von einem bestimmten Sender weitergeleitet werden. Leider funzt es nicht bei ner Domäne mit Exchange intern, da hier nicht die Mailadresse ausgewertet wird, sondern ein String mit OU=..... Kein weiss wieso - aber jetzt auch keine Lust nachzuforschen ;-)

     

    Sollte es noch Fragen zum Script geben, einfach mich kontaktieren!!

     

    Gruß

    Daniel

     

    Achja, Script ist auch nicht wirklich ausgiebig gestestet!!!! Also bitte erstmal selber ausprobieren, bevor man sich drauf verlässt !!!!!

  2. Ist gar net so schwer... Aber bedenke, dass Dein Outlook dazu aktiv sein muss.

     

    Folgendes Script sollte Dir helfen:

     

    Private Sub Application_NewMail()
      Dim msgMail As MailItem
      Set msgMail = Me.CreateItem(olMailItem)
    
      With msgMail
         .To = [MailAddy]
         .Subject = [betreff]
         .Body = [Nachrichtentext]
      End With
    
      msgMail.Send
    End Sub

     

    Gruß

    Daniel

     

    EDIT: Uuups, soll ja nur bei bestimmten ausgeführt werden - da schau ich nochmal nach ;-)

  3. Klar geht das... Du installierst den Faxserver und gibst den Faxdrucker frei. Anschließend am Client den Faxdrucker verbinden - ein Stück SW wird installiert - und jeder kann Faxe schicken bzw. den Faxeingang sehen!

     

    Gruß

    Daniel

  4. Moin!

     

    Bin wie gesagt noch mitten in der Programmierung - hoffe aber bis Anfang nächster Woche ein lauffähiges Programm liefern zu können!

     

    1.) Die neue Version nutzt jetzt die FaxServer-API - bei der alten Version bin ich über die TIFFs gegangen. Durch die API komme ich jetzt leichter an alle Details von dem Fax dran.

     

    2.) Die neue Version wird wohl als Dienst implementiert und muss somit nicht mehr über den Taskplaner aufgerufen werden. Das Tool "horcht" dann den Faxserver ab und wartet auf eingehende Faxe. (Zum Testen ist es im Moment aber noch mit GUI)

     

    3.) Die Config-Daten müssen jetzt nicht mehr in einer INI stehen. Als Alternative steht dann auch die Anbindung an ne Datenbank (im ersten Schritt MS Access oder MS SQL zur Verfügung) - neben der Programm-Config auch die MSN <--> eMail-Zuweisung und das (stufenweise) Logging.

     

    4.) Was ich auch noch einbauen will ist eine personalisiertere Mail, d.h. mehr Optionen, den Betreff / Text den eigenen Wünschen anzupassen...

     

    Joa, das waren so im groben die Dinge, die ich in die Beta 1 eingebaut habe / noch einbauen will!

     

    Greetz

    Daniel

  5. Hallo zusammen!

     

    Die Beta1 meines neuen FaxTools zum Weiterleiten der Faxe des MS FaxServers nähert sich langsam dem Stadium, dass es getestet werden kann!

     

    Vorher wollte ich aber nochmal fragen, wer

     

    1.) noch Wünsche / Vorschläge hat, die das neue Tool können sollte / MUSS :-)!?!?

    2.) Interesse am "Beta testen" hätte?!?

     

    Je mehr Feedback kommt, umso besser wird die neue Version (hoffentlich) ;-)

     

    Gruß

    Daniel

  6. Hallo zusammen!

     

    Die Beta1 meines neuen FaxTools zum Weiterleiten der Faxe des MS FaxServers nähert sich langsam dem Stadium, dass es getestet werden kann!

     

    Vorher wollte ich aber nochmal fragen, wer

     

    1.) noch Wünsche / Vorschläge hat, die das neue Tool können sollte / MUSS :-)!?!?

    2.) Interesse am "Beta testen" hätte?!?

     

    Je mehr Feedback kommt, umso besser wird die neue Version (hoffentlich) ;-)

     

    Gruß

    Daniel

  7. Hallo zusammen!

     

    Die Beta1 meines neuen FaxTools zum Weiterleiten der Faxe des MS FaxServers nähert sich langsam dem Stadium, dass es getestet werden kann!

     

    Vorher wollte ich aber nochmal fragen, wer

     

    1.) noch Wünsche / Vorschläge hat, die das neue Tool können sollte / MUSS :-)!?!?

    2.) Interesse am "Beta testen" hätte?!?

     

    Je mehr Feedback kommt, umso besser wird die neue Version (hoffentlich) ;-)

     

    Gruß

    Daniel

     

    P.S.: Ich weiss, ein paar Vorschläge wurden hier ja schon gepostet - aber lieber nochmal fragen... Ist schon was her, seit der letzten "Umfrage" :-)

  8. Es gibt die Express-Version jetzt auch in einer Advanced-Variante, die wieder ein wenig aufgebohrt ist - so sind jetzt z.B. auch die Reporting Services integriert!

     

    Wer mehr dazu wissen will, der kann sich morgen auch zwei Webcasts anschauen (10:30-12:00 und 14:30 - 16:00Uhr oder so), welche sich intensiv mit der Express-Advanced (Installation, Konfiguration, Programmierung) beschäftigen!

     

    Gruß

    Daniel

  9. Lang ists her :-)

     

    War beruflich und durchs Studium ziemlich eingespannt :-(

     

    Habe mich aber mittlerweile ein wenig in die Faxserver-Programmierung eingearbeitet. Aus diesem Grund wollte ich mal nachhören ob:

     

    1.) Das bisherige Tool die Erwartungen erfüllt hat / funktioniert hat!?!

    2.) Welche Verbesserungsvorschläge Ihr habt!?!

    3.) Ob der Bedarf an nem verbesserten Tool besteht - diesmal dann aber wohl nicht kostenlos - aber mit Sonderpreis für MCSEBoard'ler :-)

     

    Gruß

    MrReview

×
×
  • Neu erstellen...