Email der makro
06.02.2010 11:53:54
fritz
Schönen samsta zusammen
ich versende mit dem ua Makro ein email. das funktioniert auch super. könnte ich den code noch dahingehend erweitern das ich eine msgbox bekommen wenn das mail in einer gewissen zeit nicht übermitelt werden konne
Danke
mein code
Sub Übernahmebescheinigung_mailen()
Range("A1:d200").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "max mustermann@gmx.at"
.Item.Subject = "Hallo"
.Item.Send
End With
End Sub