Tabelle per Mail
25.01.2006 17:41:11
Peter
ich habe folgendes Problem. Mit dieser Userform versende ich eine durch Makros
erzeugte Tabelle. Das komplette Makro läuft durch.
Nur werden zwei Mails erzeugt, einmal ohne Empfängeradresse mit dem Text b
und einmal mit der richtigen Adresse mit dem Text c.
Ich benötige nur die zweite Mail.
Was mache ich falsch, bzw. welche Einstellung muß ich noch vornehmen?
Gruß
Peter
Public Li, wi, B
Private Sub CommandButton1_Click()
If Me.OptionButton1 = True Then wi = "M_B@xx.com"
If Me.OptionButton2 = True Then wi = "D_A@xx.com"
If Me.OptionButton3 = True Then wi = "M_g@xx.com"
If Me.OptionButton4 = True Then wi = "P_D@xx.com"
If Me.OptionButton5 = True Then wi = "K_W@xx.com"
If Me.OptionButton6 = True Then Li = "B_L@xx.com"
B = "Hallo, bitte nennen Sie mir die Liefertermine. Danke PD"
Application.Dialogs(xlDialogSendMail).Show wi, B
c = "02492 Bestände der lfd. Woche ** bitte Sendungen anlegen. Danke"
Application.Dialogs(xlDialogSendMail).Show Li, c
Unload Me
End Sub
Anzeige