Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Tabelle per Mail. Empfänger per Dropbox | Herbers Excel-Forum


Betrifft: Tabelle per Mail. Empfänger per Dropbox von: nimzowitsch@gmx.de
Geschrieben am: 06.08.2012 10:21:53

Hallo zusammen

ich habe im Netz ein Makro gefunden, mit dem ich eine Excel Tabelle per mail versenden kann.
Dies funktioniert auch prima.
Jetzt versuche ich aber, die E:Mail Empfänger über eine Dropbox festlegen zu lassen.
Hier scheitere ich kläglich.

Ich habe das mal als Beispieldatei angehängt.

Kann mir jemand von Euch helfen?

Viele Grüsse
Aaron
https://www.herber.de/bbs/user/81279.xlsm

  

Betrifft: AW: Tabelle per Mail. Empfänger per Dropbox von: Rudi Maintaire
Geschrieben am: 06.08.2012 11:57:04

Hallo,
Jetzt versuche ich aber, die E:Mail Empfänger über eine Dropbox festlegen zu lassen.
du meinst die Checkboxen in der Userform?

Sub send_mail()
  
  Dim OutApp As Object
  Dim OutMail As Object
  Dim strMail As String, gruss As String
  Dim ctl As Control, strMail As String 
  
  UserForm1.Show
  For Each ctl In UserForm1.Controls
    If TypeName(ctl) = "CheckBox" Then
      If ctl = True Then
        If strMail = "" Then
          strMail = ctl.Caption
        Else
          strMail = strMail & " ; " & ctl.Caption
        End If
      End If
    End If
  Next
  
  If strMail <> "" Then
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    gruss = Sheets("Tabelle1").Cells(2, 13).Value
    
    On Error Resume Next
    With OutMail
      .To = strMail
      .CC = ""
      .BCC = ""
      .Subject = "Fehlerbericht"
      .Body = "Hallo zusammen"
      Chr (13) & Chr(10) & _
        gruss & Application.UserName
      .Attachments.Add ActiveWorkbook.FullName
      'You can add other files also like this
      '.Attachments.Add ("C:\test.txt")
      .Send   'or use .Display
    End With
    On Error GoTo 0
  End If
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Gruß
Rudi


  

Betrifft: AW: Tabelle per Mail. Empfänger per Dropbox von: nimzowitsch@gmx.de
Geschrieben am: 06.08.2012 12:10:46

Hallo Rudi

vielen Dank.
Aber wie muss ich die Userform machen, damit die Email hinterlegt ist?

Viele Grüsse
Aaron


  

Betrifft: AW: Tabelle per Mail. Empfänger per Dropbox von: Rudi Maintaire
Geschrieben am: 06.08.2012 12:52:35

Hallo,
schreib die Adressen in die Caption der Checkboxen.
In den Code des OK-Buttons nur
Me.Hide

Gruß
Rudi


  

Betrifft: Vielen Dank Rudi!, hat geklappt von: nimzowitsch@gmx.de
Geschrieben am: 07.08.2012 10:52:03

gruss
benjamin


Beiträge aus den Excel-Beispielen zum Thema "Tabelle per Mail. Empfänger per Dropbox"