Office: (Office 2010) Excel-Zellen per Mail versenden

Hallo,

ich hab mich hier gerade frisch angemeldet. Danke dass ich hier mitlesen und lernen kann!

Ich hab ein Anliegen mit dem ich alleine nicht mehr weiter komme, und zwar folgendes:

Ich will in einer Excel Tabelle folgendes Darstellen;

Wenn in einer Zelle ein bestimmter Wert eingetragen wird z.b. 3,1 oder 4,0 soll sofern der wert unter 3,3 ist eine Email an mehrere Email- Adressen gesendet werden mit dem Zellinhalt 3,1 und der dazugehörigen Zelle mit dem Gerätenamen. Das ganze beim schließen von Excel. Die Mail sollte mittles GroupWise versendet werden.

Die Mail soll ungefähr so aussehen:

Bei Gerät 5 ist der Akkustand bei 3,1V!
Techniker kontaktieren!

Ist dies realisierbar oder eher nicht?

Ich habe mich mit VBA etwas auseinander gesetzt, aber komme da auch nicht super zurecht, das bracuht vermutlich noch öœbung. Ich hab es bisher immerhin geschafft dass ich über den VBA Editor in Excel eine Mail über Groupwise versenden kann. Das sieht so aus:


Private Sub Mail_Click()
Dim olApp As Object
Dim objGroupWise As Object
Dim objAccount As Object
Dim objMessages As Object
Dim objMessage As Object
Dim objMailBox As Object
Dim objRecipients As Object
Dim objRecipient As Object
Dim objAttachment As Object
Dim objAttachments As Object
Dim objMessageSent As Variant
Dim Subject As String, Attachment As String, Recipient As String, Bodytext As String

'Nachrichtenfenster zum Testen ( If Abfrage )

Message = InputBox("Akkuwarnmeldung! :" & Chr(10) & _
"Status" & Chr(10) & Chr(10) & _
" Bitte geben sie Ihre Nachricht ein! ")
If Message = "" Then
MsgBox "Fehler 1" & Chr(10) & "Sie haben keine Nachricht verfasst," & _
"Email wird nicht versendet"
End
End If

On Error GoTo Errorhandling

'Betreffzeile füllen

Subject = "Akuuwarnung"

'Mailempfänger
Recipient = "mustermann@mail.de"
Bodytext = Message

'öœbergabe an Groupwise

Set objGroupWise = CreateObject("NovellGroupWareSession")
Set objAccount = objGroupWise.Login
Set objMailBox = objAccount.MailBox
Set objMessages = objMailBox.Messages
Set objMessage = objMessages.Add("GW.MESSAGE.MAIL", "Draft")
Set objRecipients = objMessage.Recipients
Set objRecipient = objRecipients.Add(Recipient)
Set objAttachments = objMessage.Attachments

'Groupwise komplett schließen

ExitHere:

Set objGroupWise = Nothing
Set objAccount = Nothing
Set objMailBox = Nothing
Set objMessages = Nothing
Set objMessage = Nothing
Set objRecipients = Nothing
Set objAttachments = Nothing
Set objRecipient = Nothing
Set objAttachment = Nothing
Exit Sub

Errorhandling:

MsgBox Err.Description & " " & Err.Number

Resume ExitHere

End Sub




Ich hoffe es ist verständlich und Ihr könnt mir weiterhelfen,

Stefan

 

Hallo Stefan,

einfach alle Zellen mit Werten durchlaufen, wenn Wert <3,3, dann E-Mail verfassen und abschicken.

Wenn Du eine Beispiledatei hast, geht's natürlich konktreter.

Gruß,
Lutz