title image


Smiley zu früh gefreut, geht leider doch nicht
Hallo,



ich hatte beim Testen das externe Programm ClickYes noch aktiv - dann geht es natürlich - aber es sollte ja ohne dieses Zusatzprogramm gehen - und da tuts die Sendkeys-Kombination nicht - es ist doch richtig, SendKeys so einzubauen, wie unten gepostet - oder muss es an anderer Stelle stehen?



Viele Grüße



Sub EMailVerschicken2()

Dim outl As Object

Dim Mail As Object

Set outl = CreateObject("Outlook.Application")

Set Mail = outl.CreateItem(0)

Mail.Subject = Range("Betreff")

Mail.Body = Range("Text")

Mail.To = Range("Empfänger")

On Error Resume Next

Mail.Attachments.Add Trim(Range("dateiname")), 1, 1

SendKeys "%s"

Mail.send

Set outl = Nothing

Set Mail = Nothing

End Sub





Viele Grüße

Ulrich
(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link

(Fast) alles über Excel-Formeln ohne VBA findet man auf der Seite Excelformeln

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: