Findet Emailadresse nicht
02.02.2005 14:15:33
GeorgK
wer kann mir mal bitte weiterhelfen. Der Makro ist hier aus dem Forum.
Ich habe in C5 die Mailadresse, erhalte aber immer die Fehlermeldung "Index ausserhalb...."
Sub Senden()
Dim olApp As Object
Dim myMail As Object
Set olApp = CreateObject("Outlook.Application")
Set myMail = olApp.CreateItem(0)
With myMail
.to = Worksheets("Email").Range("C5").Value
.Subject = "Probenerfassung" & " " & Range("C4") & " / " & Range("C3").Value
.send
End With
End Sub
Vielen Dank und Grüße
GeorgK