Drupal中创建一个hook_user，并用mail函数发送email方法教程

如果想在drupal的用户账号里添加一些自己的内容，就要用到hook_user钩子函数。
$ v5 T: r  X' e" d% R例如在wedpage.module中添加一个“创建页面的链接”和一个“发送邮件的form”

function wedpage_user($type, &$edit, &$user, $category = NULL){
if ($type == 'view') {
) N( z0 a4 g& C5 k3 V5 n$items['wedpage'] = array(
'value' => l(t('Create your wedding homepage.'), 'wedpage/add'),
* h% t. U4 i) D) o);
$items_mail['send_mail'] = array(
6 t# x$ r5 V7 h* n* X' o- D'value' => drupal_get_form('wedpage_mail_form'),
);
) }% o) V1 ^6 t% r+ G8 C  j6 `$wedpage = array(
t('Wedding homepage') => $items,
, s* ]  o. ~) c" g: E' i* B6 Q; e9 tt('Send email to your friends') => $items_mail,
1 W2 t8 {/ f5 n+ e% f  F/ P);
/ {- e$ v/ K& J. D2 [9 E3 {) E) Wreturn $wedpage;
}
. l  Y, L3 s3 A3 T8 G, R}
4 `* q# t& |: v" e5 d/ }: R& guser的钩子函数就设置成功了！
" w! c2 @4 |# V( k* @下面创建mail的发送函数
7 Z; H* a3 m4 ~& X" |
7 ~# o) d9 V' {& R8 D5 }2 Afunction wedpage_mail_form(){
: j; W& O2 I# H8 `$ }8 C! }3 v$form['wedpage_mail'] = array(
; P. o; s/ ?" W7 X- w4 {3 o# U'#type'             => 'textfield',
'#size'             => 60,
0 ~! P8 F; ~$ O, @2 s# J, f'#prefix'            => '<table><tr><td>',
6 _3 t$ y4 y; w/ K! {7 v8 h8 `'#suffix'            => '</td>',
);   
  t3 ?+ k4 T1 S# L1 c$form['submit'] = array(
'#type'             => 'submit',
! k4 e! Q8 d4 V" j- b'#value'             => t('Send'),
'#prefix'            => '<td>',
'#suffix'            => '</td></tr></table>',
5 W; x7 |* }, D7 H- i( t* A% P);      
7 x4 A1 K! L; T. f) Rreturn $form;   
}
6 j8 q# J2 L: N9 N; W) tfunction wedpage_mail_form_submit($form_id, $form_values){
; v2 |$ o/ R# E- J7 ]. xglobal $user, $base_url;
% k  L  ~. x2 V$ m1 U# P! Mif (valid_email_address($form_values['wedpage_mail'])) {
; d7 N: T! p# W$mailkey = 'wedpage';
$to = $form_values['wedpage_mail'];
$subject = 'wedding web page address';
$url     = $base_url.'/ourwedding/'.$user->uid;
$body = $url;
if (drupal_mail($mailkey, $to, $subject, $body)) {
drupal_set_message(t('The mail send successful!'));
& h( V7 `3 {& x( G8 \8 I# J6 F}else {
# ]% g7 X& F% \! S+ V8 n9 Q, t0 q: t# Ddrupal_set_message(t('The mail send failed.'), 'error');
8 D2 r$ h) G) n/ [8 A5 H}
}else {
# d' }7 A9 S) g: Cdrupal_set_message(t('The e-mail address %mail is not valid.', array('%mail' => $form_values['wpage_mail'])), 'error');
- {1 ?$ |. z/ z# X}
% z% L5 b+ X- O2 P+ C}
上面的函数中valid_email_address是一个系统的验证email的函数，drupal_mail函数用于测试邮件是否发送成功！


2 M* {. Y$ d6 ~, C: w8 v1 r- {