Textbox5=heute() Email senden

Bernd · 2013-09-10T16:37:53+00:00

Hallo zusammen, brauch mal wieder Hilfe. Bei Start meiner Kundenverwaltung (Excel-Projekt) öffnet sich als erstes UF Kundenliste. Dort in Textbox5 steht das Geb.-Datum. Nun zu meiner Frage: in Textbox5 ist das heutige Datum, also Kd hat Geburtstag. Nun soll der Kd. eine automatisch generierte Email über Outlook bekommen. Emailadresse ist in Textbox14. Habe schon viele Beiträge ausprobiert, komme aber nicht weiter, wer kann mir dabei helfen? Gruß Bernd

Hallo,
1. die Mailadresse steht in Textbox13
2. die Textbox5 erst ganz am Schluss füllen, sonst ist die Mailadresse noch "".

Private Sub TextBox5_Change()
If Month(CDate(TextBox5)) = Month(Date) And Day(CDate(TextBox5)) = Day(Date) Then
SendMail_Outlook _
TextBox13, _
"Geburtstagswünsche", _
"Herzlichen Glückwunsch zum Geburtstag" _
& " wünschen von ganzem Herzen" _
& " die Firma Kiehl." _
& vbLf & vbLf _
& "PS. und viel Gesundheit oben drauf!!!", _
"", _
"", _
End If
End Sub

Private Sub ListBox1_Click()
Dim lng As Integer
If boVar = True Then Exit Sub
lng = frm_Kundenliste.ListBox1.Column(13)
With frm_Kundenliste
TextBox1.Value = Cells(lng, 1).Value
TextBox2.Value = Cells(lng, 2).Value
TextBox3.Value = Cells(lng, 3).Value
TextBox4.Value = Cells(lng, 4).Value
TextBox6.Value = Cells(lng, 6).Value
TextBox7.Value = Cells(lng, 7).Value
TextBox8.Value = Cells(lng, 8).Value
TextBox9.Value = Cells(lng, 9).Value
TextBox10.Value = Cells(lng, 10).Value
TextBox11.Value = Cells(lng, 11).Value
TextBox12.Value = Cells(lng, 12).Value
TextBox13.Value = Cells(lng, 13).Value
.cmdDatenNeu.Visible = False
.cmdÄnderung.Visible = True
.cmdlösch.Visible = True
TextBox5.Value = Cells(lng, 5).Value
End With
End Sub

Nebenbei solltest du noch dafür sorgen, dass der Kunde nicht jedesmal eine Mail bekommt, wenn du ihn aufrufst, sondern nur 1x im Jahr.
Gruß
Rudi

Hallo,
eine Möglichkeit.

Private Sub TextBox5_Change()
  Dim strTEXT As String
  strTEXT = "Herzlichen Glückwunsch<br>"
  strTEXT = strTEXT & "zum Geburtstag<br>"
  strTEXT = strTEXT & "<img src=""C:\DeinBild.jpg""><br>"
  strTEXT = strTEXT & "letzte Zeile"
  If CDate(TextBox5) = Date Then
    SendMail_Outlook _
      TextBox14, _
      "Geburtstagswünsche", _
      strTEXT, _
      "", _
      "", _
      ""
  End If
End Sub
Sub SendMail_Outlook(strTo As String, strSUBJECT As String, strTEXT As String, _
  strCC As String, strBCC As String, strATT As String)
  
  Dim MyMessage As Object, MyOutApp As Object
  
  'Outlook Object erstellen 
  Set MyOutApp = CreateObject("Outlook.Application")
  'Outlook Nachricht erstellen 
  Set MyMessage = MyOutApp.CreateItem(0)
  With MyMessage
    'Empfänger 
    If Len(strTo) Then
      .To = strTo
    End If
    'Kopie 
    If Len(strCC) Then
      .CC = strCC
    End If
    'Blindkopie 
    If Len(strCC) Then
      .BCC = strBCC
    End If
    
    'Betreff 
    .Subject = strSUBJECT
'    .Attachments.Add strATT 
'    If Len(strTEXT) Then 
'      'Hier wird ein normaler Text erstellt 
'      .Body = strTEXT 
'    End If 
    'Hier wird eine HTML Mail erstellt 
    'Dies kann zu Problemen führen, wenn der Empfänger 
    'nur TEXT Dateien empfangen darf. 
    .HTMLBody = strTEXT
    'Hier wird die Mail nochmals angezeigt 
    '        .Display 
    'Hier wird die Mail gleich in den Postausgang gelegt und gesendet 
    .Send
  End With
  'Outlook schliessen 
  'MyOutApp.Quit 
  'Variablen leeren 
  Set MyOutApp = Nothing
  Set MyMessage = Nothing
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel

Gruß
Rudi

Forumthread: Textbox5=heute() Email senden

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Textbox5=heute() Email senden

Forumthread: Textbox5=heute() Email senden

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread