title image


Smiley Eingabe der eMail-Adresse in Inputbox :
Hey Jörn,



vielleicht reicht Dir diese Lösung schon ?

      

Sub Senden()

    Dim Empfänger

    Empfänger = InputBox("Bitte eMail-Adresse eingeben", , "Besserist@gmx.de")

    If Empfänger <> "" Then

        Application.Dialogs(xlDialogSendMail).Show Empfänger, "Das ist der Betreff."

    End If

End Sub 


Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: