Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema ListBox
Screenshot zu ListBox	ListBox-Seite mit Beispielarbeitsmappe aufrufen

IBM Notes oder Outlook?

• IBM Notes oder Outlook? von Klaus M. vom 02.11.2020 10:06:12
• AW: IBM Notes oder Outlook? - von Luschi am 02.11.2020 10:33:54
  • AW: IBM Notes oder Outlook? - von Klaus M. am 03.11.2020 02:04:22
• AW: IBM Notes oder Outlook? - von ChrisL am 02.11.2020 10:48:09
  • AW: IBM Notes oder Outlook? - von Klaus M. am 03.11.2020 02:02:50
• AW: IBM Notes oder Outlook? - von EtoPHG am 02.11.2020 11:22:44
  • AW: IBM Notes oder Outlook? - von Klaus M. am 03.11.2020 02:00:23
    • AW: IBM Notes oder Outlook? - von Klaus M. am 06.11.2020 09:22:14

Hi Leute,


bei uns wird grad von IBM Notes auf Outlook umgestellt. Kein Problem, für beides hab ich _ bereits das passende Makro parat.

Private Sub SendMail_Outlook(sSubject As String, sTo As String, sCC As String, sText As String)
'***************************************************************************
'original Outlook Code by mumpel / www.herber.de / 11.04.2013 11:23:25
'http://www.herber.de/forum/messages/1308295.html
'**************************************************************************

Dim olApp         As Object
Dim olOldBody     As String

'Make Email
Set olApp = CreateObject("Outlook.Application")
   With olApp.CreateItem(0)
             .GetInspector.Display
             olOldBody = .htmlBody
             .To = sTo
             .cc = sCC
             .Subject = sSubject
             .htmlBody = sText & olOldBody
            .Attachments.Add myFile
   End With

End Sub


Sub SendMail_Notes(sSubject As String, sTo As String, sCC As String, sText As String)
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim vAn As Variant

 
'Lotus Notes initialisieren
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.currentdatabase
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"

vAn = Split(sTo, " ; ")     'Empfänger Array
MailDoc.sendto = vAn        'Empängeradresse setzen
MailDoc.Subject = sSubject  'Betreff des Mails

MailDoc.SAVEMESSAGEONSEND = True
    
Set Workspace = CreateObject("Notes.NotesUIWorkspace") ' **durch das öffnen des Dokumentes  _
durch NotesUIWorkspace**
Call Workspace.EDITDOCUMENT(True, MailDoc)             ' **erreicht man das die eingestellte  _
Signatur aus den    **
Set doc = Workspace.CURRENTDOCUMENT                    ' **Lotus Notes Optionen eingefügt wird   _
 _
                 **

Call doc.GOTOFIELD("Body")
Call doc.INSERTTEXT(sText)
'Call doc.Send(True)

Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
 
End Sub

Sub SendWhat()
Dim sText As String
Dim sTo As String
Dim sCC As String
Dim sSubject As String

sTo = "Frank Farmer ; Karl Ransaier "
sCC = ""
sSubject = "Todays File"

If MsgBox("Haben Sie Outlook (ja) oder immer noch Notes (nein) ?", vbYesNo) = 6 Then
    sText = "Dear Colleages 
 find mail attached 
 more text with  possbile html "
    Call SendMail_Outook(sSubject, sTo, sCC, sText)
Else
    sText = "Dear Colleagues " & Chr(10) & "find attached something without html"
    Call SendMail_Notes(sSubject, sTo, sCC, sText)
End If

End Sub

Sub SendWhat()
Dim sText As String
Dim sTo As String
Dim sCC As String
Dim sSubject As String

sTo = "Frank Farmer ; Karl Ransaier "
sCC = ""
sSubject = "Todays File"

Dim Outlook_Installed As Boolean
Dim Notes_Installed As Boolean
set Outlook_Installed = prüfe ob Outlook installiert ist
set Notes_installed = prüfe ob IBM Notes installiert ist
    If Outlook_Installed Then
        sText = "Dear Colleages 
 find mail attached 
 more text with  possbile html "
        Call SendMail_Outlook(sSubject, sTo, sCC, sText)
    Else
        If Notes_Installed Then
            sText = "Dear Colleagues " & Chr(10) & "find attached something without html"
            Call SendMail_Notes(sSubject, sTo, sCC, sText)
            Else
                MsgBox ("Es wurde kein Mailprogramm gefunden")
            End If
        End If
    End If
End Sub

Public Function getMailClient() As String
    Dim wScript As Object
    Dim RegKey As String
    Dim Key As String
    
    Key = "HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\"
    On Error Resume Next
    Set wScript = CreateObject("WScript.Shell")
    getMailClient = wScript.RegRead(Key)
End Function