AW: Mailnachrichten
03.12.2010 14:59:23
Ronald
Hallo Urmila
Danke für deinen Input. Dieser hat mich angeregt mein Problem aus anderer Sicht anzugehen.
Meine Lösung funktioniert nun so:
Sub MailVersenden2()
Dim olApp, Mail As Object
Dim objNachrich As Object
Set olApp = CreateObject("Outlook.Application")
Set objNachrich = olApp.CreateItem(0)
Set Mail = objNachrich
Dim sAddress As String
Dim sTxt As String
Dim sTxt2 As String
Dim sAdr As String
sPlanung = Range("B56").Value 'Auslesen in welchem Planung-Sheet ich bin
Wert1 = ActiveCell.FormulaR1C1 'Inhalt dieser Zelle in Variable schreiben
If Wert1 = "" Then 'Prüfen ob Zelle einen Inhalt hat
MsgBox ("es wurde eine leere Zelle ausgewählt")
Exit Sub
End If
'erstes Zeichen auslesen und prüfen ob dies ein B ist
With ActiveCell
sAdr = sAdr & .Address( _
rowabsolute:=False, columnabsolute:=False) & vbLf
End With
'MsgBox prompt:=sAdr
'Erster Buchstabe ausfiltern
ZF1 = Left(sAdr, 1)
If ZF1 "B" Then
MsgBox ("Bitte die gewünschte Zelle nur in Spalte B auswählen")
Exit Sub
End If
'Mail zusammenstellen und öffnen
Mail.To = ""
Mail.cc = ""
Mail.Body = "Folgender Auftrag wurde neu für dich erfasst =>> " & Wert1 & Chr(10) & Chr(10) _
& "Bitte in Planung - " & sPlanung & " einsteigen und den Fortschritt dokumentieren." & _
Chr(10) & Chr(10) _
& "Danke dir." & Chr(10) _
& "Gruss Hans" & Chr(10) & Chr(10)
Mail.Subject = "Aktion: Neuer Auftrag für Dich erfasst"
'Möglichkeit ein File anzuhängen
'Mail.Attachments.Add "C:\Dokumente und Einstellungen\pesc\Desktop\Links\test.doc"
Mail.Display
End Sub
Gruss
Ron