Mail an Vertriebsbeauftragten V1

Mail an Vertriebsbeauftragten V1

Hallo,
wir wollen im Auftrag an den Partner V1 (Partnerart PE, die Daten kommen aus dem HR) über die Nachrichtenfindung ein Mail (Sendemedium 5) verschicken.
Das funktioniert aber nicht, da die email-Adresse nicht aus dem HR geholt wird (ist lt. SAP-Hinweis 548515, Frage 3 auch so gewollt).
Wenn ich eine manuelle Adresse für V1 (d.h. in VBPA steht eine ADRNR) mit email habe, klappt es einwandfrei.
Jetzt meine Frage:
Wie kann ich beim Anlegen des Auftrags oder der Partnerrolle das Erzeugen einer manuellen Adresse erzwingen?
Oder gibt es noch eine andere Möglichkeit/Lösung?
(Release 4.6C)
Vielen Dank,
Sabine

Sorry, hab die Frage jetzt erst gesehen.
Unsere Lösung:
FORM FORM_OPEN sieht sonst so aus:
FORM FORM_OPEN USING US_SCREEN US_COUNTRY.

INCLUDE RVADOPFO.

ENDFORM.

Ich habe den Include in mein Programm kopiert/aufgelöst und wie folgt angepasst:
(s. ins 24.03.06)
....
* if there is a communication strategy used ...
IF NOT NAST-TCODE IS INITIAL AND NAST-NACHA EQ '5'.
IF NOT ( ADDR_KEY-ADDRNUMBER IS INITIAL ). "ins 24.03.06
* ... use stratagy to get communication type
CALL FUNCTION 'ADDR_GET_NEXT_COMM_TYPE'
EXPORTING
STRATEGY = NAST-TCODE
* ADDRESS_TYPE =
* ADDRESS_NUMBER = VBDKA-ADRNR
* PERSON_NUMBER = VBDKA-ADRNP
ADDRESS_NUMBER = ADDR_KEY-ADDRNUMBER
PERSON_NUMBER = ADDR_KEY-PERSNUMBER
IMPORTING
COMM_TYPE = LVS_COMM_TYPE
COMM_VALUES = LVS_COMM_VALUES
* TABLES
* STRATEGY_TABLE =
EXCEPTIONS
ADDRESS_NOT_EXIST = 1
PERSON_NOT_EXIST = 2
NO_COMM_TYPE_FOUND = 3
INTERNAL_ERROR = 4
PARAMETER_ERROR = 5
OTHERS = 6.
IF SY-SUBRC <> 0.
RETCODE = SY-SUBRC.
SYST-MSGTY = 'E'.
PERFORM PROTOCOL_UPDATE.
ENDIF.
* Beginn ins 24.03.06
* Aufruf FB simulieren
ELSE.
CLEAR I_0105.
READ TABLE I_0105 WITH KEY USRTY = '0010'.

MOVE 'INT' TO LVS_COMM_TYPE.
MOVE '001' TO LVS_COMM_VALUES-ADSMTP-CONSNUMBER.
MOVE 'X' TO LVS_COMM_VALUES-ADSMTP-FLGDEFAULT.
MOVE 'X' TO LVS_COMM_VALUES-ADSMTP-HOME_FLAG.
MOVE I_0105-USRID_LONG TO LVS_COMM_VALUES-ADSMTP-SMTP_ADDR.
MOVE I_0105-USRID_LONG TO LVS_COMM_VALUES-ADSMTP-SMTP_SRCH.
ENDIF.
* Ende insert 24.03.06

ENDIF.
.....