automatische Email versenden
21.07.2003 10:09:35
Chris
ich möchte über die Auswahl einer Checkbox eine automatische Email versenden.
Ich habe bereits den VBA Quelltext aus diesem Forum gezogen und es funzt auch soweit ganz gut.
Aber auf anderen Rechnern mit den gleichen Voraussetzungen (Software und HW) bekomme ich allerdings immer eine Fehlermeldung, daß er "olMailItem" nicht finden bzw. ausführen kann.
Woran könnte das liegen???
Achso und noch eine Frage:
Wie kann ich jetzt in diese Mail bestimmte Zellenwerte (Bsp. Auftragsnummer)aus ener bestimmten Zeile aus der Tabelle mit reinschreiben?
Private Sub CheckBox1_Click()
Dim ObjOutlook As New Outlook.Application
Dim Antwortmail As Outlook.MailItem
Set Antwortmail = ObjOutlook.CreateItem(olMailItem)
With Antwortmail
.subject = "Text"
.To = "irgend@was.de"
.Body = "text"
.Send
End With
End Sub
Vielen vielen vielen Dank im voraus
Grüße Chris