Wie kann ich diese Meldung ausschalten?
Danke Gruß Michael
(Kann man auch nur eine Tabelle versenden?)
StandardModule: basMain
Sub Senden()
ThisWorkbook.SendMail _
Recipients:="Name@t-online.de", _
Subject:="Ein Test"
End Sub
Sub Senden()
ThisWorkbook.SendMail _
Recipients:="Name@t-online.de", _
Subject:="Ein Test"
End Sub
Sub senden(strTo As String, strSubject As String, strBody As String, Optional strActWbk As _
String = "")
'Nachrichtenobjekt
Sleep 500
Set olMsg = olOutApp.CreateItem(0)
olMsg = olOutApp.CreateItem(0)
Sleep 500
With olMsg
'an
.To = strTo
'Betreff
.Subject = strSubject
'Attachment zufügen
If Len(strActWbk) Then .Attachments.Add strActWbk
'Textnachricht - bei Bedarf Nachrichtentext
.body = strBody
'Angezeige
.Display
End With
Sleep 600
'Tastaturbefehl ALT-s senden,
SendKeys "%s", True
Sleep 600
End Sub
Gruß, ANdre
Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
rein
Sub Senden()
ThisWorkbook.Sheets("Tabelle1").Copy 'Tabellennamen anpassen
ActiveWorkbook.SendMail Recipients:="Name@t-online.de", Subject:="Ein Test"
ActiveWorkbook.Close False
End Sub
Gruß Tino