Email Problem
19.01.2004 18:35:35
flo
habe ein Problem mit folgendem VBA-Script:
Sub Senden()
Range("B1").Select
Dim strName As String
Dim mail As Object
Set outl = CreateObject("Outlook.Application")
Set mail = outl.CreateItem(0)
mail.Subject = "New entry in Human Error file " + Datum2
mail.To = "flo@metabion.com"
mail.Body = strName = ActiveCell.Value
mail.Send
End Sub
Und zwar will ich ganz simpel im Email-Body einen Namen, der in der Tabelle in Zelle B2 steht. Wenn dort zum Beispiel Andreas steht, soll er mir in den zu sendenden Emailtext Andreas hineinschreiben. Ganz einfach eigentlich. Momentan bringt er immer eine 0. Habe schon in den anderen Beiträgen geschaut, aber keine Antwort gefunden.
Danke schon mal,
Gruß,
Flo